diff options
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 034eace3dfb..047785e844c 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))))) |