From: Tassilo Horn <tassilo@member.fsf.org>
Date: Tue, 22 Apr 2008 06:38:12 +0000 (+0000)
Subject: (doc-view-scroll-up-or-next-page): Don't use
X-Git-Tag: emacs-pretest-23.0.90~6138
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d5793be30c516653c280823735265f700807f8b3;p=emacs.git

(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 --git a/lisp/ChangeLog b/lisp/ChangeLog
index 93967cad44b..3e3108624b5 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2008-04-22  Tassilo Horn  <tassilo@member.fsf.org>
+
+	* doc-view.el (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.
+
 2008-04-22  Nick Roberts  <nickrob@snap.net.nz>
 
 	* progmodes/gdb-ui.el (gdb-locals-header): New variable.
diff --git a/lisp/doc-view.el b/lisp/doc-view.el
index 834c661af43..7d2988f9718 100644
--- a/lisp/doc-view.el
+++ b/lisp/doc-view.el
@@ -434,7 +434,7 @@ Can be `dvi', `pdf', or `ps'.")
     (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."