# HG changeset patch
# User Tassilo Horn <tassilo@member.fsf.org>
# Date 1201614605 0
# Node ID fd7dd85405fc02ae76c1042024dcb3c79d7a6c51
# Parent  1341d54b08e22e2bc34871e6472385dddb280659
2008-01-29  Tassilo Horn  <tassilo@member.fsf.org>

	* doc-view.el (doc-view-mode): Use facilities of
	image-mode to restore [vh]scroll when switching buffers.

diff -r 1341d54b08e2 -r fd7dd85405fc lisp/doc-view.el
--- a/lisp/doc-view.el	Tue Jan 29 13:49:05 2008 +0000
+++ b/lisp/doc-view.el	Tue Jan 29 13:50:05 2008 +0000
@@ -987,6 +987,15 @@
   (add-hook 'change-major-mode-hook
 	    (lambda () (delete-overlay doc-view-current-overlay))
 	    nil t)
+
+  ;; Keep track of [vh]scroll when switching buffers
+  (set (make-local-variable 'image-mode-current-hscroll)
+       (window-hscroll (selected-window)))
+  (set (make-local-variable 'image-mode-current-vscroll)
+       (window-vscroll (selected-window)))
+  (add-hook 'window-configuration-change-hook
+	    'image-reset-current-vhscroll nil t)
+
   (set (make-local-variable 'mode-line-position)
        '(" P" (:eval (number-to-string doc-view-current-page))
 	 "/" (:eval (number-to-string (length doc-view-current-files)))))