|
@@ -1210,7 +1210,7 @@ window."
|
|
(let ((scrlup (if additional-keys '(?\s 22) 22))
|
|
(let ((scrlup (if additional-keys '(?\s 22) 22))
|
|
(scrldn (if additional-keys `(?\d 134217846) 134217846)))
|
|
(scrldn (if additional-keys `(?\d 134217846) 134217846)))
|
|
(eval
|
|
(eval
|
|
- `(case ,key
|
|
|
|
|
|
+ `(cl-case ,key
|
|
;; C-n
|
|
;; C-n
|
|
(14 (if (not (pos-visible-in-window-p (point-max)))
|
|
(14 (if (not (pos-visible-in-window-p (point-max)))
|
|
(ignore-errors (scroll-up 1))
|
|
(ignore-errors (scroll-up 1))
|