Mercurial > emacs
changeset 98160:51ea1846eb9f
(doc-view-scroll-up-or-next-page)
(doc-view-scroll-down-or-previous-page): Fix scrolling in case of
vertically split windows.
| author | Tassilo Horn <tassilo@member.fsf.org> |
|---|---|
| date | Fri, 12 Sep 2008 06:29:25 +0000 |
| parents | 6a5fd5a377c2 |
| children | c80ae6f21730 |
| files | lisp/ChangeLog lisp/doc-view.el |
| diffstat | 2 files changed, 10 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Fri Sep 12 06:13:36 2008 +0000 +++ b/lisp/ChangeLog Fri Sep 12 06:29:25 2008 +0000 @@ -1,3 +1,9 @@ +2008-09-12 Tassilo Horn <tassilo@member.fsf.org> + + * doc-view.el (doc-view-scroll-up-or-next-page) + (doc-view-scroll-down-or-previous-page): Fix scrolling in case of + vertically split windows. + 2008-09-12 Glenn Morris <rgm@gnu.org> * progmodes/f90.el (f90-mode-map): Don't bind \t and \r.
--- a/lisp/doc-view.el Fri Sep 12 06:13:36 2008 +0000 +++ b/lisp/doc-view.el Fri Sep 12 06:29:25 2008 +0000 @@ -422,7 +422,8 @@ (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 @@ (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