[Emacs-diffs] /srv/bzr/emacs/trunk r111852: * lisp/image-mode.el (image-mode): Add mouse bindings for mode-line-process.

[Glenn Morris]

------------------------------------------------------------
revno: 111852
committer: Glenn Morris <address@hidden>
branch nick: trunk
timestamp: Thu 2013-02-21 20:34:06 -0500
message:
  * lisp/image-mode.el (image-mode): Add mouse bindings for mode-line-process.
modified:
  lisp/ChangeLog
  lisp/image-mode.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2013-02-22 01:32:45 +0000
+++ b/lisp/ChangeLog    2013-02-22 01:34:06 +0000
@@ -1,5 +1,7 @@
 2013-02-22  Glenn Morris  <address@hidden>
 
+       * 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  <address@hidden>

=== modified file 'lisp/image-mode.el'
--- a/lisp/image-mode.el        2013-02-20 07:57:33 +0000
+++ b/lisp/image-mode.el        2013-02-22 01:34:06 +0000
@@ -476,11 +476,22 @@
           ((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