* lisp/image-mode.el (image-mode-map): Add image-dired menu entry.

2 files changed, 10 insertions, 2 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index b27300e290c..b462d35c5e6 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,7 @@
 2013-02-17  Glenn Morris  <rgm@gnu.org>
 
+        * image-mode.el (image-mode-map): Add image-dired menu entry.
+
         * image-dired.el (tumme): Make this alias obsolete.
 
 2013-02-16  Glenn Morris  <rgm@gnu.org>
diff --git a/lisp/image-mode.el b/lisp/image-mode.el
index 52367811341..7787a26cc08 100644
--- a/lisp/image-mode.el
+++ b/lisp/image-mode.el
@@ -376,9 +376,15 @@ call."
          :visible (eq image-type 'imagemagick)
          :help "Rotate the image"]
         "--"
-        ["Next Image" image-next-file :active t
+        ["Show Thumbnails"
+         (lambda ()
+           (interactive)
+           (image-dired default-directory))
+         :active default-directory
+         :help "Show thumbnails for all images in this directory"]
+        ["Next Image" image-next-file :active buffer-file-name
          :help "Move to next image in this directory"]
-        ["Previous Image" image-previous-file :active t
+        ["Previous Image" image-previous-file :active buffer-file-name
          :help "Move to previous image in this directory"]
         "--"
         ["Animate Image" image-toggle-animation :style toggle