From: Mathias Dahl <mathias.dahl@gmail.com>
Date: Thu, 25 May 2006 15:11:10 +0000 (+0000)
Subject: * dired.el (dired-mode-map): Add help-echo strings to tumme
X-Git-Tag: emacs-pretest-22.0.90~2334
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=bc4dbed59035f35ebbb49c3684b583c6180036a6;p=emacs.git

* dired.el (dired-mode-map): Add help-echo strings to tumme
commands.

* dired.el (dired-mode-map): Bind `tumme-dired-display-image'
to C-t i.
---

diff --git a/lisp/dired.el b/lisp/dired.el
index 69825626ddf..67c9b737bc7 100644
--- a/lisp/dired.el
+++ b/lisp/dired.el
@@ -1317,32 +1317,32 @@ Do so according to the former subdir alist OLD-SUBDIR-ALIST."
 
     (define-key map
       [menu-bar immediate tumme tumme-mark-tagged-files]
-      '(menu-item "Mark From Image Tag..."
-                  tumme-mark-tagged-files))    
+      '(menu-item "Mark From Image Tag..." tumme-mark-tagged-files
+                  :help "Mark files whose image tags matches regexp"))
     (define-key map
       [menu-bar immediate tumme tumme-tag-remove]
-      '(menu-item "Remove Image Tag..."
-                  tumme-tag-remove))
+      '(menu-item "Remove Image Tag..." tumme-tag-remove
+                  :help "Remove image tag from current or marked files"))
     (define-key map
       [menu-bar immediate tumme tumme-tag-files]
-      '(menu-item "Add Image Tag..."
-                  tumme-tag-files))
+      '(menu-item "Add Image Tag..." tumme-tag-files
+                  :help "Add image tag to current or marked files"))
     (define-key map
       [menu-bar immediate tumme tumme-dired-comment-files]
-      '(menu-item "Add Comment"
-                  tumme-dired-comment-files))
+      '(menu-item "Add Comment..." tumme-dired-comment-files
+                  :help "Add comment to current or marked files"))
     (define-key map
       [menu-bar immediate tumme tumme-dired-display-external]
-      '(menu-item "Display Image Externally"
-                  tumme-dired-display-external))
+      '(menu-item "Display Image Externally" tumme-dired-display-external
+                  :help "Display image in external viewer"))
     (define-key map
       [menu-bar immediate tumme tumme-dired-display-image]
-      '(menu-item "Display Image"
-                  tumme-dired-display-image))    
+      '(menu-item "Display Image" tumme-dired-display-image
+                  :help "Display sized image in a separate window"))
     (define-key map
       [menu-bar immediate tumme tumme-display-thumbs]
-      '(menu-item "Display Thumbnails"
-                  tumme-display-thumbs))
+      '(menu-item "Display Thumbnails" tumme-display-thumbs
+                  :help "Display thumbnails for current or marked image files"))
 
 
     (define-key map [menu-bar immediate compare-directories]