Added Thumbnails sub menu under Immediate and started to place `tumme' commands there...

diff --git a/lisp/dired.el b/lisp/dired.el
index ca50e3b5767e6a46b7d3de52710ffb8ee2893c1b..cdfc9a5c04c665f7e33b048368ede3812b1d4106 100644 (file)
--- a/lisp/dired.el
+++ b/lisp/dired.el
@@ -1338,6 +1338,44 @@ Do so according to the former subdir alist OLD-SUBDIR-ALIST."
     (define-key map [menu-bar immediate wdired-mode]
       '(menu-item "Edit File Names" wdired-change-to-wdired-mode))
 
+    (define-key dired-mode-map [menu-bar immediate tumme]
+      (cons "Thumbnails" (make-sparse-keymap "tumme")))
+    
+    (define-key dired-mode-map
+      [menu-bar immediate tumme tumme-display-thumbs]
+      '(menu-item "Display thumbails for marked files"
+                  tumme-display-thumbs))
+    
+    (define-key dired-mode-map
+      [menu-bar immediate tumme tumme-tag-files]
+     '(menu-item "Add tag to marked files"
+                 tumme-tag-files))
+    
+    (define-key dired-mode-map
+      [menu-bar immediate tumme tumme-tag-remove]
+     '(menu-item "Remove tag from marked files"
+                 tumme-tag-remove))
+    
+    (define-key dired-mode-map
+      [menu-bar immediate tumme tumme-dired-display-image]
+     '(menu-item "Display sized image"
+                 tumme-dired-display-image))
+    
+    (define-key dired-mode-map
+      [menu-bar immediate tumme tumme-dired-display-external]
+     '(menu-item "Display image in external viewer"
+                 tumme-dired-display-external))
+    
+    (define-key dired-mode-map
+      [menu-bar immediate tumme tumme-dired-comment-files]
+     '(menu-item "Add comment to marked files"
+                 tumme-dired-comment-files))
+    
+    (define-key dired-mode-map
+      [menu-bar immediate tumme tumme-mark-tagged-files]
+     '(menu-item "Find and mark files with a certain tag"
+                 tumme-mark-tagged-files))    
+
     (define-key map [menu-bar regexp]
       (cons "Regexp" (make-sparse-keymap "Regexp")))