Merge branch 'maint'

This commit is contained in:
Nicolas Goaziou 2013-07-28 21:33:24 +02:00
commit 9b7f43768f
1 changed files with 2 additions and 2 deletions

View File

@ -6070,11 +6070,11 @@ options as CDR."
(memq key '(14 16 ?\s ?\d)))
(case key
(14 (if (not (pos-visible-in-window-p (point-max)))
(ignore-errors (scroll-up-line))
(ignore-errors (scroll-up 1))
(message "End of buffer")
(sit-for 1)))
(16 (if (not (pos-visible-in-window-p (point-min)))
(ignore-errors (scroll-down-line))
(ignore-errors (scroll-down 1))
(message "Beginning of buffer")
(sit-for 1)))
(?\s (if (not (pos-visible-in-window-p (point-max)))