diff options
author | Tassilo Horn <[email protected]> | 2008-01-29 13:50:35 +0000 |
---|---|---|
committer | Tassilo Horn <[email protected]> | 2008-01-29 13:50:35 +0000 |
commit | 6f70aa334f6f388d2ea86e8e14747f6bb11e6795 (patch) | |
tree | 21bfad09673ea20c7d5f998408cd1acae46d1a3d /lisp/doc-view.el | |
parent | 36e1c289c7d381817583d5b06e013550f56b0b8b (diff) |
2008-01-29 Tassilo Horn <[email protected]>
* doc-view.el (doc-view-mode): Use facilities of
image-mode to restore [vh]scroll when switching buffers.
Diffstat (limited to 'lisp/doc-view.el')
-rw-r--r-- | lisp/doc-view.el | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/lisp/doc-view.el b/lisp/doc-view.el index 034eace3df..047785e844 100644 --- a/lisp/doc-view.el +++ b/lisp/doc-view.el @@ -987,6 +987,15 @@ toggle between displaying the document or editing it as text." (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))))) |