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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index b27300e290caf41270bf44bf920b7a52023d3746..b462d35c5e6e66f3b3dbae570d441d08e1223a93 100644 (file)
--- 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 52367811341d0ea52dfc997c23e7ff3a46839cf6..7787a26cc085c47eed28d5c20caf95f3c28bde34 100644 (file)
--- 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