# HG changeset patch
# User Tassilo Horn <tassilo@member.fsf.org>
# Date 1221200965 0
# Node ID 51ea1846eb9febee309ad315f706825d115fd0ee
# Parent  6a5fd5a377c2d3714f5a0c6ab3aa75955c5642a4
(doc-view-scroll-up-or-next-page)
(doc-view-scroll-down-or-previous-page): Fix scrolling in case of
vertically split windows.

diff -r 6a5fd5a377c2 -r 51ea1846eb9f lisp/ChangeLog
--- a/lisp/ChangeLog	Fri Sep 12 06:13:36 2008 +0000
+++ b/lisp/ChangeLog	Fri Sep 12 06:29:25 2008 +0000
@@ -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 -r 6a5fd5a377c2 -r 51ea1846eb9f lisp/doc-view.el
--- a/lisp/doc-view.el	Fri Sep 12 06:13:36 2008 +0000
+++ b/lisp/doc-view.el	Fri Sep 12 06:29:25 2008 +0000
@@ -422,7 +422,8 @@
     (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 @@
     (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