From 5db881d0da91211b805ad755bbe48865a396f29e Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Thu, 21 Feb 2013 20:34:06 -0500 Subject: [PATCH] * lisp/image-mode.el (image-mode): Add mouse bindings for mode-line-process. --- lisp/ChangeLog | 2 ++ lisp/image-mode.el | 21 ++++++++++++++++----- 2 files changed, 18 insertions(+), 5 deletions(-) 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 + * 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 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 -- 2.39.2