martin/emacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

2008-01-04 Tassilo Horn <tassilo@member.fsf.org>

Browse Source 
* doc-view.el (doc-view-scroll-up-or-next-page)
	(doc-view-scroll-down-or-previous-page): Don't scroll to the
	top/bottom again when on the first/last page.
This commit is contained in:
Tassilo Horn
2008-01-04 13:21:42 +00:00
parent c2699583be
commit bcc758eca9
2 changed files with 14 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/ChangeLog
View File

@@ -1,3 +1,9 @@
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): Don't scroll to the
top/bottom again when on the first/last page.
2008-01-04 Juanma Barranquero <lekktu@gmail.com>
* bs.el (bs--get-mode-name): Fix typo in previous change.

12
lisp/doc-view.el
View File

@@ -380,15 +380,19 @@ has finished."
"Scroll page up if possible, else goto next page."
(interactive)
(when (= (window-vscroll) (image-scroll-up nil))
(doc-view-next-page)
(set-window-vscroll nil 0)))
(let ((cur-page doc-view-current-page))
(doc-view-next-page)
(when (/= cur-page doc-view-current-page)
(set-window-vscroll nil 0)))))
(defun doc-view-scroll-down-or-previous-page ()
"Scroll page down if possible, else goto previous page."
(interactive)
(when (= (window-vscroll) (image-scroll-down nil))
(doc-view-previous-page)
(image-scroll-up nil)))
(let ((cur-page doc-view-current-page))
(doc-view-previous-page)
(when (/= cur-page doc-view-current-page)
(image-scroll-up nil)))))
;;;; Utility Functions