forked from mirrors/org-mode
ox: Small improvement to scrolling
* lisp/ox.el (org-export--dispatch-action): Small improvement to line by line scrolling.
This commit is contained in:
parent
4f2fccefc5
commit
68ab722a49
10
lisp/ox.el
10
lisp/ox.el
|
@ -5509,8 +5509,14 @@ options as CDR."
|
|||
(not expertp)
|
||||
(memq key '(? ? ?\s ?\d)))
|
||||
(case key
|
||||
(? (ignore-errors (scroll-up-line)))
|
||||
(? (ignore-errors (scroll-down-line)))
|
||||
(? (if (not (pos-visible-in-window-p (point-max)))
|
||||
(ignore-errors (scroll-up-line))
|
||||
(message "End of buffer")
|
||||
(sit-for 1)))
|
||||
(? (if (not (pos-visible-in-window-p (point-min)))
|
||||
(ignore-errors (scroll-down-line))
|
||||
(message "Beginning of buffer")
|
||||
(sit-for 1)))
|
||||
(?\s (if (not (pos-visible-in-window-p (point-max)))
|
||||
(scroll-up nil)
|
||||
(message "End of buffer")
|
||||
|
|
Loading…
Reference in a new issue