diff options
| author | Glenn Morris <rgm@gnu.org> | 2013-02-21 20:34:06 -0500 |
|---|---|---|
| committer | Glenn Morris <rgm@gnu.org> | 2013-02-21 20:34:06 -0500 |
| commit | 5db881d0da91211b805ad755bbe48865a396f29e (patch) | |
| tree | fcfc0df4c36bc2bac2b621691ce5ad6ea48f6bd7 /lisp/image-mode.el | |
| parent | 153dd4d04f0bb5e315cb1911db1c05c6a3d976df (diff) | |
| download | emacs-5db881d0da91211b805ad755bbe48865a396f29e.tar.gz | |
* lisp/image-mode.el (image-mode): Add mouse bindings for mode-line-process.
Diffstat (limited to 'lisp/image-mode.el')
| -rw-r--r-- | lisp/image-mode.el | 21 |
1 files changed, 16 insertions, 5 deletions
diff --git a/lisp/image-mode.el b/lisp/image-mode.el index 6ae1bb20cdc..ac090f020b3 100644 --- a/lisp/image-mode.el +++ b/lisp/image-mode.el @@ -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 |