From 68ab722a499995e1b18a60e9851e57f6fe7fbe8e Mon Sep 17 00:00:00 2001 From: Nicolas Goaziou Date: Fri, 15 Feb 2013 18:32:47 +0100 Subject: [PATCH] ox: Small improvement to scrolling * lisp/ox.el (org-export--dispatch-action): Small improvement to line by line scrolling. --- lisp/ox.el | 10 ++++++++-- 1 file changed, 8 insertions(+), 2 deletions(-) diff --git a/lisp/ox.el b/lisp/ox.el index d6fdc0fc7..bd1a15087 100644 --- a/lisp/ox.el +++ b/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")