diff options
| author | Artur Malabarba <bruce.connor.am@gmail.com> | 2015-02-05 15:57:01 -0200 |
|---|---|---|
| committer | Artur Malabarba <bruce.connor.am@gmail.com> | 2015-02-06 07:44:02 -0200 |
| commit | 5c9ad35f1e5fd8ee5561ef48baac1f6ff20ae679 (patch) | |
| tree | 87f6d5d7920cc14f9bb95b8fd5ec2f6f38006434 | |
| parent | e14961fca13be44a737b32fb1346554a7832a690 (diff) | |
| download | emacs-5c9ad35f1e5fd8ee5561ef48baac1f6ff20ae679.tar.gz | |
doc-view.el (doc-view-kill-proc-and-buffer): Obsolete.
Use image-kill-buffer instead.
(doc-view-mode): Add `doc-view-kill-proc' to `kill-buffer-hook'.
| -rw-r--r-- | lisp/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/doc-view.el | 9 |
2 files changed, 7 insertions, 7 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 68c2dab829d..32bbd2ccf3f 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2015-02-06 Artur Malabarba <bruce.connor.am@gmail.com> + + * doc-view.el (doc-view-kill-proc-and-buffer): Obsolete. Use + `image-kill-buffer' instead. + 2015-02-06 Thomas Fitzsimmons <fitzsim@fitzsim.org> * net/ldap.el (ldap-search-internal): Fix docstring. diff --git a/lisp/doc-view.el b/lisp/doc-view.el index b718f1d8b2c..5f1c94a0128 100644 --- a/lisp/doc-view.el +++ b/lisp/doc-view.el @@ -415,7 +415,6 @@ Typically \"page-%s.png\".") (define-key map "H" 'doc-view-fit-height-to-window) (define-key map "P" 'doc-view-fit-page-to-window) ;; Killing the buffer (and the process) - (define-key map (kbd "k") 'doc-view-kill-proc-and-buffer) (define-key map (kbd "K") 'doc-view-kill-proc) ;; Slicing the image (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." (setq doc-view--current-timer nil)) (setq mode-line-process nil)) -(defun doc-view-kill-proc-and-buffer () - "Kill the current converter process and buffer." - (interactive) - (doc-view-kill-proc) - (when (eq major-mode 'doc-view-mode) - (kill-buffer (current-buffer)))) +(define-obsolete-function-alias 'doc-view-kill-proc-and-buffer + #'image-kill-buffer "25.1") (defun doc-view-make-safe-dir (dir) (condition-case nil |