[Emacs-diffs] Changes to emacs/lisp/doc-view.el,v

[Tassilo Horn]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Tassilo Horn <tsdh>     08/01/04 13:21:16

Index: doc-view.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/doc-view.el,v
retrieving revision 1.33
retrieving revision 1.34
diff -u -b -r1.33 -r1.34
--- doc-view.el 4 Jan 2008 08:43:38 -0000       1.33
+++ doc-view.el 4 Jan 2008 13:21:16 -0000       1.34
@@ -380,15 +380,19 @@
   "Scroll page up if possible, else goto next page."
   (interactive)
   (when (= (window-vscroll) (image-scroll-up nil))
+    (let ((cur-page doc-view-current-page))
     (doc-view-next-page)
-    (set-window-vscroll nil 0)))
+      (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))
+    (let ((cur-page doc-view-current-page))
     (doc-view-previous-page)
-    (image-scroll-up nil)))
+      (when (/= cur-page doc-view-current-page)
+       (image-scroll-up nil)))))
 
 ;;;; Utility Functions