diff options
author | Tassilo Horn <[email protected]> | 2008-09-12 06:29:25 +0000 |
---|---|---|
committer | Tassilo Horn <[email protected]> | 2008-09-12 06:29:25 +0000 |
commit | c36f0e175511d552c1082f0c042d2a2057909bb4 (patch) | |
tree | 6aeaf9f1b1ffcdb088b26bb3e3e20442c2d5b1ff /lisp/doc-view.el | |
parent | fc88345bb73f6bc7d7ddf8cf77c6467bd3a319da (diff) |
(doc-view-scroll-up-or-next-page)
(doc-view-scroll-down-or-previous-page): Fix scrolling in case of
vertically split windows.
Diffstat (limited to 'lisp/doc-view.el')
-rw-r--r-- | lisp/doc-view.el | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lisp/doc-view.el b/lisp/doc-view.el index dd7af41cd7..9694e9a70e 100644 --- a/lisp/doc-view.el +++ b/lisp/doc-view.el @@ -422,7 +422,8 @@ Can be `dvi', `pdf', or `ps'.") (let ((cur-page (doc-view-current-page))) (doc-view-next-page) (when (/= cur-page (doc-view-current-page)) - (image-scroll-down nil))))) + (image-bob) + (image-bol 1))))) (defun doc-view-scroll-down-or-previous-page () "Scroll page down if possible, else goto previous page." @@ -431,7 +432,8 @@ Can be `dvi', `pdf', or `ps'.") (let ((cur-page (doc-view-current-page))) (doc-view-previous-page) (when (/= cur-page (doc-view-current-page)) - (image-scroll-up nil))))) + (image-eob) + (image-bol 1))))) ;;;; Utility Functions |