From c36f0e175511d552c1082f0c042d2a2057909bb4 Mon Sep 17 00:00:00 2001 From: Tassilo Horn Date: Fri, 12 Sep 2008 06:29:25 +0000 Subject: [PATCH] (doc-view-scroll-up-or-next-page) (doc-view-scroll-down-or-previous-page): Fix scrolling in case of vertically split windows. --- lisp/ChangeLog | 6 ++++++ lisp/doc-view.el | 6 ++++-- 2 files changed, 10 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 087317bcdca..bb2745c276d 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,9 @@ +2008-09-12 Tassilo Horn + + * doc-view.el (doc-view-scroll-up-or-next-page) + (doc-view-scroll-down-or-previous-page): Fix scrolling in case of + vertically split windows. + 2008-09-12 Glenn Morris * progmodes/f90.el (f90-mode-map): Don't bind \t and \r. diff --git a/lisp/doc-view.el b/lisp/doc-view.el index dd7af41cd7a..9694e9a70ed 100644 --- a/lisp/doc-view.el +++ b/lisp/doc-view.el @@ -422,7 +422,8 @@ Can be `dvi', `pdf', or `ps'.") (let ((cur-page (doc-view-current-page))) (doc-view-next-page) (when (/= cur-page (doc-view-current-page)) - (image-scroll-down nil))))) + (image-bob) + (image-bol 1))))) (defun doc-view-scroll-down-or-previous-page () "Scroll page down if possible, else goto previous page." @@ -431,7 +432,8 @@ Can be `dvi', `pdf', or `ps'.") (let ((cur-page (doc-view-current-page))) (doc-view-previous-page) (when (/= cur-page (doc-view-current-page)) - (image-scroll-up nil))))) + (image-eob) + (image-bol 1))))) ;;;; Utility Functions -- 2.39.5