mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-01 11:14:55 +00:00
Code Issues Releases Activity

* lisp/image-mode.el (image-mode): Add mouse bindings for mode-line-process.

Browse Source
This commit is contained in:
Glenn Morris 2013-02-21 20:34:06 -05:00
parent 153dd4d04f
commit 5db881d0da
2 changed files with 18 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lisp/ChangeLog
View File

@ -1,5 +1,7 @@
2013-02-22 Glenn Morris <rgm@gnu.org>
* image-mode.el (image-mode): Add mouse bindings for mode-line-process.
* htmlfontify.el (hfy-default-header): Encode title string. (Bug#7457)
2013-02-21 Bastien Guerry <bzg@gnu.org>

21
lisp/image-mode.el
View File

@ -476,11 +476,22 @@ to toggle between display as an image and display as text."
((setq animated (image-multi-frame-p image))
(setq image-multi-frame t
mode-line-process
`(:eval (propertize
(format " [%s/%s]"
(1+ (image-current-frame ',image))
,(car animated))
'help-echo "Frame number")))
`(:eval
(concat " "
(propertize
(format "[%s/%s]"
(1+ (image-current-frame ',image))
,(car animated))
'help-echo "Frames
mouse-1: Next frame
mouse-3: Previous frame"
'mouse-face 'mode-line-highlight
'local-map
'(keymap
(mode-line
keymap
(down-mouse-1 . image-next-frame)
(down-mouse-3 . image-previous-frame)))))))
(message "%s"
(concat msg1 "text. This image has multiple frames.")))
;;; (substitute-command-keys