Commit bcc758ec authored by Tassilo Horn's avatar Tassilo Horn
Browse files

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.
parent c2699583
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.
......
......@@ -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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment