From 1f3eb28e930551928b32623cf3fed313f45fbf22 Mon Sep 17 00:00:00 2001 From: Mathias Dahl Date: Wed, 24 May 2006 18:49:20 +0000 Subject: [PATCH] Added Thumbnails sub menu under Immediate and started to place `tumme' commands there. I could use some feedback on this change. --- lisp/dired.el | 38 ++++++++++++++++++++++++++++++++++++++ 1 file changed, 38 insertions(+) diff --git a/lisp/dired.el b/lisp/dired.el index ca50e3b5767..cdfc9a5c04c 100644 --- 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"))) -- 2.39.5