martin/emacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Added Thumbnails sub menu under Immediate and started to place `tumme' commands there. I could use some feedback on this change.

Browse Source
This commit is contained in:
Mathias Dahl
2006-05-24 18:49:20 +00:00
parent 898b4b9a67
commit 1f3eb28e93
1 changed files with 38 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

38
lisp/dired.el
View File

@@ -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")))