Mercurial > emacs
changeset 87572:0e44918a91f4
2008-01-04 Tassilo Horn <tassilo@member.fsf.org>
* doc-view.el (doc-view-scroll-up-or-next-page)
(doc-view-scroll-down-or-previous-page): Use image-scroll-up and
image-scroll-down instead of the non-image equivalents. Don't
rely on a signalled condition but switch pages when scrolling
doesn't change the vertical position anymore.
| author | Tassilo Horn <tassilo@member.fsf.org> |
|---|---|
| date | Fri, 04 Jan 2008 08:27:20 +0000 |
| parents | 65113c11c1c5 |
| children | 7e5487d828ff |
| files | lisp/doc-view.el |
| diffstat | 1 files changed, 6 insertions(+), 7 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/doc-view.el Fri Jan 04 07:03:47 2008 +0000 +++ b/lisp/doc-view.el Fri Jan 04 08:27:20 2008 +0000 @@ -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