Mercurial > emacs

comparison lisp/dired.el @ 70920:fdc3645af42f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
* dired.el (dired-mode-map): Add help-echo strings to tumme commands. * dired.el (dired-mode-map): Bind `tumme-dired-display-image' to C-t i.
author Mathias Dahl <mathias.dahl@gmail.com>
date Thu, 25 May 2006 15:11:10 +0000
parents bf18ea544a42
children 88e8184b9f87
comparison
equal deleted inserted replaced
70919:02241ad48da2 70920:fdc3645af42f
1315 (define-key map [menu-bar immediate tumme] 1315 (define-key map [menu-bar immediate tumme]
1316 (cons "Thumbnail Images" (make-sparse-keymap "tumme"))) 1316 (cons "Thumbnail Images" (make-sparse-keymap "tumme")))
1317 1317
1318 (define-key map 1318 (define-key map
1319 [menu-bar immediate tumme tumme-mark-tagged-files] 1319 [menu-bar immediate tumme tumme-mark-tagged-files]
1320 '(menu-item "Mark From Image Tag..." 1320 '(menu-item "Mark From Image Tag..." tumme-mark-tagged-files
1321 tumme-mark-tagged-files)) 1321 :help "Mark files whose image tags matches regexp"))
1322 (define-key map 1322 (define-key map
1323 [menu-bar immediate tumme tumme-tag-remove] 1323 [menu-bar immediate tumme tumme-tag-remove]
1324 '(menu-item "Remove Image Tag..." 1324 '(menu-item "Remove Image Tag..." tumme-tag-remove
1325 tumme-tag-remove)) 1325 :help "Remove image tag from current or marked files"))
1326 (define-key map 1326 (define-key map
1327 [menu-bar immediate tumme tumme-tag-files] 1327 [menu-bar immediate tumme tumme-tag-files]
1328 '(menu-item "Add Image Tag..." 1328 '(menu-item "Add Image Tag..." tumme-tag-files
1329 tumme-tag-files)) 1329 :help "Add image tag to current or marked files"))
1330 (define-key map 1330 (define-key map
1331 [menu-bar immediate tumme tumme-dired-comment-files] 1331 [menu-bar immediate tumme tumme-dired-comment-files]
1332 '(menu-item "Add Comment" 1332 '(menu-item "Add Comment..." tumme-dired-comment-files
1333 tumme-dired-comment-files)) 1333 :help "Add comment to current or marked files"))
1334 (define-key map 1334 (define-key map
1335 [menu-bar immediate tumme tumme-dired-display-external] 1335 [menu-bar immediate tumme tumme-dired-display-external]
1336 '(menu-item "Display Image Externally" 1336 '(menu-item "Display Image Externally" tumme-dired-display-external
1337 tumme-dired-display-external)) 1337 :help "Display image in external viewer"))
1338 (define-key map 1338 (define-key map
1339 [menu-bar immediate tumme tumme-dired-display-image] 1339 [menu-bar immediate tumme tumme-dired-display-image]
1340 '(menu-item "Display Image" 1340 '(menu-item "Display Image" tumme-dired-display-image
1341 tumme-dired-display-image)) 1341 :help "Display sized image in a separate window"))
1342 (define-key map 1342 (define-key map
1343 [menu-bar immediate tumme tumme-display-thumbs] 1343 [menu-bar immediate tumme tumme-display-thumbs]
1344 '(menu-item "Display Thumbnails" 1344 '(menu-item "Display Thumbnails" tumme-display-thumbs
1345 tumme-display-thumbs)) 1345 :help "Display thumbnails for current or marked image files"))
1346 1346
1347 1347
1348 (define-key map [menu-bar immediate compare-directories] 1348 (define-key map [menu-bar immediate compare-directories]
1349 '(menu-item "Compare directories..." dired-compare-directories 1349 '(menu-item "Compare directories..." dired-compare-directories
1350 :help "Mark files with different attributes in two dired buffers")) 1350 :help "Mark files with different attributes in two dired buffers"))