From: Tassilo Horn Date: Fri, 12 Sep 2008 06:29:25 +0000 (+0000) Subject: (doc-view-scroll-up-or-next-page) X-Git-Tag: emacs-pretest-23.0.90~2908 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c36f0e175511d552c1082f0c042d2a2057909bb4;p=emacs.git (doc-view-scroll-up-or-next-page) (doc-view-scroll-down-or-previous-page): Fix scrolling in case of vertically split windows. --- 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