From fa7711bf92aaf86087af5fdfbb5e25ad1540fabb Mon Sep 17 00:00:00 2001 From: Artur Malabarba Date: Wed, 4 Feb 2015 18:02:14 -0200 Subject: [PATCH] * image-mode.el (image-kill-buffer): New command. --- lisp/ChangeLog | 3 +++ lisp/image-mode.el | 7 +++++++ 2 files changed, 10 insertions(+) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 9e473e2..15d79b4 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -14,6 +14,9 @@ 2015-02-04 Artur Malabarba + * image-mode.el (image-kill-buffer): New command. + (image-mode-map): Bind it to k. + * emacs-lisp/package.el (package-delete): Remove package from `package-selected-packages' even if it can't be deleted. (package-installed-p): Accept package-desc objects. diff --git a/lisp/image-mode.el b/lisp/image-mode.el index 9e527f1..8ea1a2b 100644 --- a/lisp/image-mode.el +++ b/lisp/image-mode.el @@ -380,6 +380,7 @@ call." (define-key map "a-" 'image-decrease-speed) (define-key map "a0" 'image-reset-speed) (define-key map "ar" 'image-reverse-speed) + (define-key map "k" 'image-kill-buffer) (define-key map [remap forward-char] 'image-forward-hscroll) (define-key map [remap backward-char] 'image-backward-hscroll) (define-key map [remap right-char] 'image-forward-hscroll) @@ -722,6 +723,12 @@ the image by calling `image-mode'." (image-mode-as-text) (image-mode))) +(defun image-kill-buffer () + "Kill the current buffer." + (interactive) + (when (eq major-mode 'image-mode) + (kill-buffer (current-buffer)))) + (defun image-after-revert-hook () (when (image-get-display-property) (image-toggle-display-text) -- 2.2.2