Commit 5db881d0 authored by Glenn Morris's avatar Glenn Morris
Browse files

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

parent 153dd4d0
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>
......
......@@ -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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment