[Emacs-diffs] /srv/bzr/emacs/trunk r111814: * lisp/image-mode.el (image-mode-map): Add image-dired menu entry.

[Glenn Morris]

------------------------------------------------------------
revno: 111814
committer: Glenn Morris <address@hidden>
branch nick: trunk
timestamp: Sat 2013-02-16 16:50:41 -0800
message:
  * lisp/image-mode.el (image-mode-map): Add image-dired menu entry.
modified:
  lisp/ChangeLog
  lisp/image-mode.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2013-02-17 00:45:53 +0000
+++ b/lisp/ChangeLog    2013-02-17 00:50:41 +0000
@@ -1,5 +1,7 @@
 2013-02-17  Glenn Morris  <address@hidden>
 
+       * image-mode.el (image-mode-map): Add image-dired menu entry.
+
        * image-dired.el (tumme): Make this alias obsolete.
 
 2013-02-16  Glenn Morris  <address@hidden>

=== modified file 'lisp/image-mode.el'
--- a/lisp/image-mode.el        2013-02-16 19:56:50 +0000
+++ b/lisp/image-mode.el        2013-02-17 00:50:41 +0000
@@ -376,9 +376,15 @@
         :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