andros/emacs-gpu
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

image-mode.el (image-kill-buffer): New command bound to k.

Browse source
This commit is contained in:
Artur Malabarba 2015-02-04 18:02:14 -02:00
parent 57abaae56a
commit e14961fca1
2 changed files with 9 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
lisp/ChangeLog
View file

@ -108,6 +108,9 @@
2015-02-04 Artur Malabarba <bruce.connor.am@gmail.com>
* 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.

6
lisp/image-mode.el
View file

@ -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,11 @@ the image by calling `image-mode'."
(image-mode-as-text)
(image-mode)))
(defun image-kill-buffer ()
"Kill the current buffer."
(interactive)
(kill-buffer (current-buffer)))
(defun image-after-revert-hook ()
(when (image-get-display-property)
(image-toggle-display-text)