# HG changeset patch
# User Tassilo Horn <tassilo@member.fsf.org>
# Date 1208846259 0
# Node ID 0496bdb638d8cb1d529ad1f5ba571845c242c4c0
# Parent  37605d9673f14c7c8485993bd0a1b20a88d2df68
(doc-view-scroll-up-or-next-page): Don't use
set-window-vscroll but image-scroll-down.  Fixes a bug where a
command following SPC scrolled up again.

diff -r 37605d9673f1 -r 0496bdb638d8 lisp/doc-view.el
--- a/lisp/doc-view.el	Tue Apr 22 06:25:15 2008 +0000
+++ b/lisp/doc-view.el	Tue Apr 22 06:37:39 2008 +0000
@@ -434,7 +434,7 @@
     (let ((cur-page (doc-view-current-page)))
       (doc-view-next-page)
       (when (/= cur-page (doc-view-current-page))
-	(set-window-vscroll nil 0)))))
+	(image-scroll-down nil)))))
 
 (defun doc-view-scroll-down-or-previous-page ()
   "Scroll page down if possible, else goto previous page."