Commit 89663176 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): 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.
parent db7552d5
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.
2008-01-04 Rob Riepel <riepel@networking.Stanford.EDU>
* emulation/tpu-edt.el (tpu-load-xkeys): Recommend to run the
......
......@@ -377,17 +377,16 @@ has finished."
(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
......
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