From: Glenn Morris <rgm@gnu.org>
Date: Sun, 17 Feb 2013 00:50:41 +0000 (-0800)
Subject: * lisp/image-mode.el (image-mode-map): Add image-dired menu entry.
X-Git-Tag: emacs-24.3.90~173^2~7^2~9
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f05e2ff2e3d260d6480495886d9bdadd6c0d507f;p=emacs.git

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

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