aboutsummaryrefslogtreecommitdiffstats
path: root/lisp/doc-view.el
diff options
context:
space:
mode:
Diffstat (limited to 'lisp/doc-view.el')
-rw-r--r--lisp/doc-view.el17
1 files changed, 10 insertions, 7 deletions
diff --git a/lisp/doc-view.el b/lisp/doc-view.el
index 0e63d37adc5..5f1c94a0128 100644
--- a/lisp/doc-view.el
+++ b/lisp/doc-view.el
@@ -415,7 +415,6 @@ Typically \"page-%s.png\".")
415 (define-key map "H" 'doc-view-fit-height-to-window) 415 (define-key map "H" 'doc-view-fit-height-to-window)
416 (define-key map "P" 'doc-view-fit-page-to-window) 416 (define-key map "P" 'doc-view-fit-page-to-window)
417 ;; Killing the buffer (and the process) 417 ;; Killing the buffer (and the process)
418 (define-key map (kbd "k") 'doc-view-kill-proc-and-buffer)
419 (define-key map (kbd "K") 'doc-view-kill-proc) 418 (define-key map (kbd "K") 'doc-view-kill-proc)
420 ;; Slicing the image 419 ;; Slicing the image
421 (define-key map (kbd "s s") 'doc-view-set-slice) 420 (define-key map (kbd "s s") 'doc-view-set-slice)
@@ -645,12 +644,8 @@ at the top edge of the page moves to the previous page."
645 (setq doc-view--current-timer nil)) 644 (setq doc-view--current-timer nil))
646 (setq mode-line-process nil)) 645 (setq mode-line-process nil))
647 646
648(defun doc-view-kill-proc-and-buffer () 647(define-obsolete-function-alias 'doc-view-kill-proc-and-buffer
649 "Kill the current converter process and buffer." 648 #'image-kill-buffer "25.1")
650 (interactive)
651 (doc-view-kill-proc)
652 (when (eq major-mode 'doc-view-mode)
653 (kill-buffer (current-buffer))))
654 649
655(defun doc-view-make-safe-dir (dir) 650(defun doc-view-make-safe-dir (dir)
656 (condition-case nil 651 (condition-case nil
@@ -1685,6 +1680,9 @@ If BACKWARD is non-nil, jump to the previous match."
1685;; desktop.el integration 1680;; desktop.el integration
1686 1681
1687(defun doc-view-desktop-save-buffer (_desktop-dirname) 1682(defun doc-view-desktop-save-buffer (_desktop-dirname)
1683 ;; FIXME: This is wrong, since this info is per-window but we only do it once
1684 ;; here for the buffer. IOW it should be saved via something like
1685 ;; `window-persistent-parameters'.
1688 `((page . ,(doc-view-current-page)) 1686 `((page . ,(doc-view-current-page))
1689 (slice . ,(doc-view-current-slice)))) 1687 (slice . ,(doc-view-current-slice))))
1690 1688
@@ -1695,8 +1693,13 @@ If BACKWARD is non-nil, jump to the previous match."
1695 (let ((page (cdr (assq 'page misc))) 1693 (let ((page (cdr (assq 'page misc)))
1696 (slice (cdr (assq 'slice misc)))) 1694 (slice (cdr (assq 'slice misc))))
1697 (desktop-restore-file-buffer file name misc) 1695 (desktop-restore-file-buffer file name misc)
1696 ;; FIXME: We need to run this code after displaying the buffer.
1698 (with-selected-window (or (get-buffer-window (current-buffer) 0) 1697 (with-selected-window (or (get-buffer-window (current-buffer) 0)
1699 (selected-window)) 1698 (selected-window))
1699 ;; FIXME: This should be done for all windows restored that show
1700 ;; this buffer. Basically, the page/slice should be saved as
1701 ;; window-parameters in the window-state(s) and then restoring this
1702 ;; window-state should call us back (to interpret/use those parameters).
1700 (doc-view-goto-page page) 1703 (doc-view-goto-page page)
1701 (when slice (apply 'doc-view-set-slice slice))))) 1704 (when slice (apply 'doc-view-set-slice slice)))))
1702 1705