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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 7f65619dcfa4cdf4e07d2a9ddda3364390097a92..914d26e6f2f949fe1adfcbfb474c9d2fc473b841 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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>

diff --git a/lisp/image-mode.el b/lisp/image-mode.el
index 6ae1bb20cdc86a8438c3ae6f8c8c2ea651eda75e..ac090f020b3e2427c391c96c4cfad44bc9eb93ac 100644 (file)
--- 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