diff options
Diffstat (limited to 'lisp/doc-view.el')
| -rw-r--r-- | lisp/doc-view.el | 17 |
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 | ||