Mercurial > emacs

changeset 70913:bf18ea544a42

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(dired-mode-map): `tumme-display-dired-image' was renamed in tumme.el, but there was still a key binding to it here. Changed the binding to the new name.
author Mathias Dahl <mathias.dahl@gmail.com>
date Thu, 25 May 2006 12:08:04 +0000
parents fe136a8d1196
children 7177967e93bd
files lisp/dired.el
diffstat 1 files changed, 26 insertions(+), 25 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/dired.el	Thu May 25 11:42:28 2006 +0000
+++ b/lisp/dired.el	Thu May 25 12:08:04 2006 +0000
@@ -1253,7 +1253,7 @@
     (define-key map "\C-tt" 'tumme-tag-files)
     (define-key map "\C-tr" 'tumme-tag-remove)
     (define-key map "\C-tj" 'tumme-jump-thumbnail-buffer)
-    (define-key map "\C-ti" 'tumme-display-dired-image)
+    (define-key map "\C-ti" 'tumme-dired-display-image)
     (define-key map "\C-tx" 'tumme-dired-display-external)
     (define-key map "\C-ta" 'tumme-display-thumbs-append)
     (define-key map "\C-t." 'tumme-display-thumb)
@@ -1316,33 +1316,34 @@
       (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))    
+    (define-key map
+      [menu-bar immediate tumme tumme-tag-remove]
+      '(menu-item "Remove Image Tag..."
+                  tumme-tag-remove))
+    (define-key map
+      [menu-bar immediate tumme tumme-tag-files]
+      '(menu-item "Add Image Tag..."
+                  tumme-tag-files))
+    (define-key map
+      [menu-bar immediate tumme tumme-dired-comment-files]
+      '(menu-item "Add Comment"
+                  tumme-dired-comment-files))
+    (define-key map
+      [menu-bar immediate tumme tumme-dired-display-external]
+      '(menu-item "Display Image Externally"
+                  tumme-dired-display-external))
+    (define-key map
+      [menu-bar immediate tumme tumme-dired-display-image]
+      '(menu-item "Display Image"
+                  tumme-dired-display-image))    
+    (define-key map
       [menu-bar immediate tumme tumme-display-thumbs]
       '(menu-item "Display Thumbnails"
                   tumme-display-thumbs))
-    (define-key map
-      [menu-bar immediate tumme tumme-tag-files]
-     '(menu-item "Add Image Tag..."
-                 tumme-tag-files))
-    (define-key map
-      [menu-bar immediate tumme tumme-tag-remove]
-     '(menu-item "Remove Image Tag..."
-                 tumme-tag-remove))
-    (define-key map
-      [menu-bar immediate tumme tumme-dired-display-image]
-     '(menu-item "Display Image"
-                 tumme-dired-display-image))
-    (define-key map
-      [menu-bar immediate tumme tumme-dired-display-external]
-     '(menu-item "Display Image Externally"
-                 tumme-dired-display-external))
-    (define-key map
-      [menu-bar immediate tumme tumme-dired-comment-files]
-     '(menu-item "Add Comment"
-                 tumme-dired-comment-files))
-    (define-key map
-      [menu-bar immediate tumme tumme-mark-tagged-files]
-     '(menu-item "Mark From Image Tag..."
-                 tumme-mark-tagged-files))    
+
 
     (define-key map [menu-bar immediate compare-directories]
       '(menu-item "Compare directories..." dired-compare-directories