# HG changeset patch
# User Tassilo Horn <tassilo@member.fsf.org>
# Date 1199452876 0
# Node ID c47e66c6d23981ab0582c891146ff55b26bb3bc3
# Parent  10679233f935fc0d920537e8ed104378e74a86b7
2008-01-04  Tassilo Horn  <tassilo@member.fsf.org>

	* doc-view.el (doc-view-scroll-up-or-next-page)
	(doc-view-scroll-down-or-previous-page): Don't scroll to the
	top/bottom again when on the first/last page.

diff -r 10679233f935 -r c47e66c6d239 lisp/doc-view.el
--- a/lisp/doc-view.el	Fri Jan 04 13:04:00 2008 +0000
+++ b/lisp/doc-view.el	Fri Jan 04 13:21:16 2008 +0000
@@ -380,15 +380,19 @@
   "Scroll page up if possible, else goto next page."
   (interactive)
   (when (= (window-vscroll) (image-scroll-up nil))
-    (doc-view-next-page)
-    (set-window-vscroll nil 0)))
+    (let ((cur-page doc-view-current-page))
+      (doc-view-next-page)
+      (when (/= cur-page doc-view-current-page)
+	(set-window-vscroll nil 0)))))
 
 (defun doc-view-scroll-down-or-previous-page ()
   "Scroll page down if possible, else goto previous page."
   (interactive)
   (when (= (window-vscroll) (image-scroll-down nil))
-    (doc-view-previous-page)
-    (image-scroll-up nil)))
+    (let ((cur-page doc-view-current-page))
+      (doc-view-previous-page)
+      (when (/= cur-page doc-view-current-page)
+	(image-scroll-up nil)))))
 
 ;;;; Utility Functions