Merge branch 'maint'
This commit is contained in:
commit
9b7f43768f
|
@ -6070,11 +6070,11 @@ options as CDR."
|
||||||
(memq key '(14 16 ?\s ?\d)))
|
(memq key '(14 16 ?\s ?\d)))
|
||||||
(case key
|
(case key
|
||||||
(14 (if (not (pos-visible-in-window-p (point-max)))
|
(14 (if (not (pos-visible-in-window-p (point-max)))
|
||||||
(ignore-errors (scroll-up-line))
|
(ignore-errors (scroll-up 1))
|
||||||
(message "End of buffer")
|
(message "End of buffer")
|
||||||
(sit-for 1)))
|
(sit-for 1)))
|
||||||
(16 (if (not (pos-visible-in-window-p (point-min)))
|
(16 (if (not (pos-visible-in-window-p (point-min)))
|
||||||
(ignore-errors (scroll-down-line))
|
(ignore-errors (scroll-down 1))
|
||||||
(message "Beginning of buffer")
|
(message "Beginning of buffer")
|
||||||
(sit-for 1)))
|
(sit-for 1)))
|
||||||
(?\s (if (not (pos-visible-in-window-p (point-max)))
|
(?\s (if (not (pos-visible-in-window-p (point-max)))
|
||||||
|
|
Loading…
Reference in New Issue