From: Glenn Morris <rgm@gnu.org>
Date: Fri, 22 Feb 2013 01:34:06 +0000 (-0500)
Subject: * lisp/image-mode.el (image-mode): Add mouse bindings for mode-line-process.
X-Git-Tag: emacs-24.3.90~173^2~6^2~67
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=5db881d0da91211b805ad755bbe48865a396f29e;p=emacs.git

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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 7f65619dcfa..914d26e6f2f 100644
--- 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 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