From d5793be30c516653c280823735265f700807f8b3 Mon Sep 17 00:00:00 2001 From: Tassilo Horn Date: Tue, 22 Apr 2008 06:38:12 +0000 Subject: (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. --- lisp/ChangeLog | 6 ++++++ lisp/doc-view.el | 2 +- 2 files changed, 7 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 93967cad44..3e3108624b 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,9 @@ +2008-04-22 Tassilo Horn + + * 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 * progmodes/gdb-ui.el (gdb-locals-header): New variable. diff --git a/lisp/doc-view.el b/lisp/doc-view.el index 834c661af4..7d2988f971 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." -- cgit v1.2.3