(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 087317bcdcaf0c2b0f2f11dba9811c1984341f5a..bb2745c276d7b1d5e090555bcce89540fdac69be 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2008-09-12  Tassilo Horn  <tassilo@member.fsf.org>
+
+       * 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  <rgm@gnu.org>
 
        * 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 dd7af41cd7a8bb748c881ebda56628464b73278a..9694e9a70ed68d6936b76f1d34dd9e9e00264402 100644 (file)
--- 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