X-Git-Url: https://code.delx.au/gnu-emacs/blobdiff_plain/cfbf790d80eaa399afceecd9a6c3e2e76bca59b0..fc0c5af8380cdbfa64fd082a65461e3cc20737b0:/lisp/image-mode.el

diff --git a/lisp/image-mode.el b/lisp/image-mode.el
index 6ae1bb20cd..ac090f020b 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