mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

* doc-view.el: Integrate with desktop.el. (Bug#14435)

Browse source 
(doc-view-desktop-save-buffer): New function.
(doc-view-restore-desktop-buffer): New function.
(desktop-buffer-mode-handlers): Add
`doc-view-restore-desktop-buffer' as desktop.el buffer mode
handler.
(doc-view-mode): Set `doc-view-desktop-save-buffer' as custom
`desktop-save-buffer' function.
This commit is contained in:
Tassilo Horn 2013-05-24 12:54:20 +02:00
parent 30bce3f055
commit 57b9823ec7
2 changed files with 33 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

22
lisp/doc-view.el
View file

@ -1649,6 +1649,25 @@ If BACKWARD is non-nil, jump to the previous match."
(setq-local doc-view--image-type type)
(setq-local doc-view--image-file-pattern (concat "page-%s." extension))))
;; desktop.el integration
(defun doc-view-desktop-save-buffer (desktop-dirname)
`((page . ,(doc-view-current-page))
(slice . ,(doc-view-current-slice))))
(defun doc-view-restore-desktop-buffer (file name misc)
(let ((page (cdr (assq 'page misc)))
(slice (cdr (assq 'slice misc))))
(prog1 (desktop-restore-file-buffer file name misc))
(with-selected-window (or (get-buffer-window (current-buffer) 0)
(selected-window))
(doc-view-goto-page page)
(when slice (apply 'doc-view-set-slice slice)))))
(setq desktop-buffer-mode-handlers
(cons '(doc-view-mode . doc-view-restore-desktop-buffer)
desktop-buffer-mode-handlers))
;;;###autoload
(defun doc-view-mode ()
"Major mode in DocView buffers.
@ -1715,6 +1734,9 @@ toggle between displaying the document or editing it as text.
nil t)
(add-hook 'clone-indirect-buffer-hook 'doc-view-clone-buffer-hook nil t)
(add-hook 'kill-buffer-hook 'doc-view-kill-proc nil t)
(when (and (boundp 'desktop-save-mode)
desktop-save-mode)
(setq-local desktop-save-buffer 'doc-view-desktop-save-buffer))
(remove-overlays (point-min) (point-max) 'doc-view t) ;Just in case.
;; Keep track of display info ([vh]scroll, page number, overlay,