tec/org-mode
tec
/
org-mode
forked from mirrors/org-mode
1
0
Fork 0
Code Pull Requests Releases Activity

ox: Small improvement to scrolling 

* lisp/ox.el (org-export--dispatch-action): Small improvement to line
  by line scrolling.
This commit is contained in:
Nicolas Goaziou 2013-02-15 18:32:47 +01:00
parent 4f2fccefc5
commit 68ab722a49
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lisp/ox.el
View File

@ -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")