[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 08:27:20

Index: doc-view.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/doc-view.el,v
retrieving revision 1.31
retrieving revision 1.32
diff -u -b -r1.31 -r1.32
--- doc-view.el 4 Jan 2008 03:12:17 -0000       1.31
+++ doc-view.el 4 Jan 2008 08:27:20 -0000       1.32
@@ -377,17 +377,16 @@
 (defun doc-view-scroll-up-or-next-page ()
   "Scroll page up if possible, else goto next page."
   (interactive)
-  (condition-case nil
-      (scroll-up)
-    (error (doc-view-next-page))))
+  (when (= (window-vscroll) (image-scroll-up nil))
+    (doc-view-next-page)
+    (set-window-vscroll nil 0)))
 
 (defun doc-view-scroll-down-or-previous-page ()
   "Scroll page down if possible, else goto previous page."
   (interactive)
-  (condition-case nil
-      (scroll-down)
-    (error (doc-view-previous-page)
-          (goto-char (point-max)))))
+  (when (= (window-vscroll) (image-scroll-down nil))
+    (doc-view-previous-page)
+    (image-scroll-up nil)))
 
 ;;;; Utility Functions