# HG changeset patch
# User Mathias Dahl <mathias.dahl@gmail.com>
# Date 1148681224 0
# Node ID 88e8184b9f87d97ee6fb6f9a6bd8af58976c7534
# Parent  54b71a25fff81b9b21d0aa1ceee00fb3bc05dfb2
(dired-mode-map): Move tumme commands to Operate,
Regexp and Immediate menus. Change "Add Comment" to "Add Image
Comment". Change "Add Image Tag" to "Add Image Tags".

diff -r 54b71a25fff8 -r 88e8184b9f87 lisp/dired.el
--- a/lisp/dired.el	Fri May 26 22:04:22 2006 +0000
+++ b/lisp/dired.el	Fri May 26 22:07:04 2006 +0000
@@ -1305,6 +1305,18 @@
     (define-key map [menu-bar immediate]
       (cons "Immediate" (make-sparse-keymap "Immediate")))
 
+    (define-key map
+      [menu-bar immediate 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-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 dashes-4]
+      '("--"))
+
     (define-key map [menu-bar immediate revert-buffer]
       '(menu-item "Refresh" revert-buffer
 		  :help "Update contents of shown directories"))
@@ -1312,39 +1324,6 @@
     (define-key map [menu-bar immediate dashes]
       '("--"))
 
-    (define-key map [menu-bar immediate tumme]
-      (cons "Thumbnail Images" (make-sparse-keymap "tumme")))
-
-    (define-key map
-      [menu-bar immediate tumme 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
-                  :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
-                  :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
-                  :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
-                  :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
-                  :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
-                  :help "Display thumbnails for current or marked image files"))
-
-
     (define-key map [menu-bar immediate compare-directories]
       '(menu-item "Compare directories..." dired-compare-directories
 		  :help "Mark files with different attributes in two dired buffers"))
@@ -1374,6 +1353,14 @@
     (define-key map [menu-bar regexp]
       (cons "Regexp" (make-sparse-keymap "Regexp")))
 
+    (define-key map
+      [menu-bar regexp 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 regexp dashes-1]
+      '("--"))    
+
     (define-key map [menu-bar regexp downcase]
       '(menu-item "Downcase" dired-downcase
 		  ;; When running on plain MS-DOS, there's only one
@@ -1461,6 +1448,29 @@
     (define-key map [menu-bar operate]
       (cons "Operate" (make-sparse-keymap "Operate")))
 
+    (define-key map [menu-bar operate dashes-2]
+      '("--"))
+
+    (define-key map
+      [menu-bar operate 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 operate tumme-tag-files]
+      '(menu-item "Add Image Tags..." tumme-tag-files
+                  :help "Add image tags to current or marked files"))
+    (define-key map
+      [menu-bar operate tumme-dired-comment-files]
+      '(menu-item "Add Image Comment..." tumme-dired-comment-files
+                  :help "Add image comment to current or marked files"))
+    (define-key map
+      [menu-bar operate tumme-display-thumbs]
+      '(menu-item "Display Thumbnails" tumme-display-thumbs
+                  :help "Display thumbnails for current or marked image files"))
+    
+    (define-key map [menu-bar operate dashes-3]
+      '("--"))    
+
     (define-key map [menu-bar operate query-replace]
       '(menu-item "Query Replace in Files..." dired-do-query-replace-regexp
 		  :help "Replace regexp in marked files"))