Mercurial > emacs

comparison lisp/tumme.el @ 70891:96a49e1507ec

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Renamed `tumme-display-dired-image' to `tumme-dired-display-image'.
author Mathias Dahl <mathias.dahl@gmail.com>
date Wed, 24 May 2006 18:31:36 +0000
parents 6bb61012beed
children c6ca6d20fb3d
comparison
equal deleted inserted replaced
70890:6bb61012beed 70891:96a49e1507ec
1491 1491
1492 (define-key dired-mode-map "\C-td" 'tumme-display-thumbs) 1492 (define-key dired-mode-map "\C-td" 'tumme-display-thumbs)
1493 (define-key dired-mode-map "\C-tt" 'tumme-tag-files) 1493 (define-key dired-mode-map "\C-tt" 'tumme-tag-files)
1494 (define-key dired-mode-map "\C-tr" 'tumme-tag-remove) 1494 (define-key dired-mode-map "\C-tr" 'tumme-tag-remove)
1495 (define-key dired-mode-map [tab] 'tumme-jump-thumbnail-buffer) 1495 (define-key dired-mode-map [tab] 'tumme-jump-thumbnail-buffer)
1496 (define-key dired-mode-map "\C-ti" 'tumme-display-dired-image) 1496 (define-key dired-mode-map "\C-ti" 'tumme-dired-display-image)
1497 (define-key dired-mode-map "\C-tx" 'tumme-dired-display-external) 1497 (define-key dired-mode-map "\C-tx" 'tumme-dired-display-external)
1498 (define-key dired-mode-map "\C-ta" 'tumme-display-thumbs-append) 1498 (define-key dired-mode-map "\C-ta" 'tumme-display-thumbs-append)
1499 (define-key dired-mode-map "\C-t." 'tumme-display-thumb) 1499 (define-key dired-mode-map "\C-t." 'tumme-display-thumb)
1500 (define-key dired-mode-map "\C-tc" 'tumme-dired-comment-files) 1500 (define-key dired-mode-map "\C-tc" 'tumme-dired-comment-files)
1501 (define-key dired-mode-map "\C-tf" 'tumme-mark-tagged-files) 1501 (define-key dired-mode-map "\C-tf" 'tumme-mark-tagged-files)
1535 1535
1536 (define-key dired-mode-map 1536 (define-key dired-mode-map
1537 [menu-bar tumme tumme-dired-display-external] 1537 [menu-bar tumme tumme-dired-display-external]
1538 '("Display in external viewer" . tumme-dired-display-external)) 1538 '("Display in external viewer" . tumme-dired-display-external))
1539 (define-key dired-mode-map 1539 (define-key dired-mode-map
1540 [menu-bar tumme tumme-display-dired-image] 1540 [menu-bar tumme tumme-dired-display-image]
1541 '("Display image" . tumme-display-dired-image)) 1541 '("Display image" . tumme-dired-display-image))
1542 (define-key dired-mode-map 1542 (define-key dired-mode-map
1543 [menu-bar tumme tumme-display-thumb] 1543 [menu-bar tumme tumme-display-thumb]
1544 '("Display this thumbnail" . tumme-display-thumb)) 1544 '("Display this thumbnail" . tumme-display-thumb))
1545 (define-key dired-mode-map 1545 (define-key dired-mode-map
1546 [menu-bar tumme tumme-display-thumbs-append] 1546 [menu-bar tumme tumme-display-thumbs-append]
1815 (message "No original file name found") 1815 (message "No original file name found")
1816 (tumme-display-image file arg) 1816 (tumme-display-image file arg)
1817 (display-buffer tumme-display-image-buffer)))))) 1817 (display-buffer tumme-display-image-buffer))))))
1818 1818
1819 ;;;###autoload 1819 ;;;###autoload
1820 (defun tumme-display-dired-image (&optional arg) 1820 (defun tumme-dired-display-image (&optional arg)
1821 "Display current image file. 1821 "Display current image file.
1822 See documentation for `tumme-display-image' for more information. 1822 See documentation for `tumme-display-image' for more information.
1823 With prefix argument ARG, display image in its original size." 1823 With prefix argument ARG, display image in its original size."
1824 (interactive "P") 1824 (interactive "P")
1825 (tumme-display-image (dired-get-filename) arg)) 1825 (tumme-display-image (dired-get-filename) arg))