Mercurial > emacs

changeset 70895:226e865bc288

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(dired-mode-map): Fix breakage.
author Nick Roberts <nickrob@snap.net.nz>
date Wed, 24 May 2006 21:42:14 +0000
parents 6faec3ac85dc
children dc6b16a79fd5
files lisp/dired.el
diffstat 1 files changed, 32 insertions(+), 38 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/dired.el	Wed May 24 21:41:41 2006 +0000
+++ b/lisp/dired.el	Wed May 24 21:42:14 2006 +0000
@@ -1312,6 +1312,38 @@
     (define-key map [menu-bar immediate dashes]
       '("--"))
 
+    (define-key map [menu-bar immediate tumme]
+      (cons "Thumbnails" (make-sparse-keymap "tumme")))
+
+    (define-key map
+      [menu-bar immediate tumme tumme-display-thumbs]
+      '(menu-item "Display thumbails for marked files"
+                  tumme-display-thumbs))
+    (define-key map
+      [menu-bar immediate tumme tumme-tag-files]
+     '(menu-item "Add tag to marked files"
+                 tumme-tag-files))
+    (define-key map
+      [menu-bar immediate tumme tumme-tag-remove]
+     '(menu-item "Remove tag from marked files"
+                 tumme-tag-remove))
+    (define-key map
+      [menu-bar immediate tumme tumme-dired-display-image]
+     '(menu-item "Display sized image"
+                 tumme-dired-display-image))
+    (define-key map
+      [menu-bar immediate tumme tumme-dired-display-external]
+     '(menu-item "Display image in external viewer"
+                 tumme-dired-display-external))
+    (define-key map
+      [menu-bar immediate tumme tumme-dired-comment-files]
+     '(menu-item "Add comment to marked files"
+                 tumme-dired-comment-files))
+    (define-key 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 immediate compare-directories]
       '(menu-item "Compare directories..." dired-compare-directories
 		  :help "Mark files with different attributes in two dired buffers"))
@@ -1338,44 +1370,6 @@
     (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")))