Mercurial > emacs
comparison lisp/tumme.el @ 70982:9200b8713856
(tumme-delete-tag): Rename from `tumme-tag-remove'.
(tumme-setup-dired-keybindings): Change `tumme-add-remove' to
`tumme-delete-tag'.
| author | Mathias Dahl <mathias.dahl@gmail.com> |
|---|---|
| date | Fri, 26 May 2006 22:34:12 +0000 |
| parents | dfbe62ceddcf |
| children | 0074ea910aa8 |
comparison
equal
deleted
inserted
replaced
| 70981:755bf4667ffb | 70982:9200b8713856 |
|---|---|
| 966 (tumme-write-tag (tumme-original-file-name) tag)) | 966 (tumme-write-tag (tumme-original-file-name) tag)) |
| 967 (tumme-update-property | 967 (tumme-update-property |
| 968 'tags (tumme-list-tags (tumme-original-file-name)))) | 968 'tags (tumme-list-tags (tumme-original-file-name)))) |
| 969 | 969 |
| 970 ;;;###autoload | 970 ;;;###autoload |
| 971 (defun tumme-tag-remove (arg) | 971 (defun tumme-delete-tag (arg) |
| 972 "Remove tag for selected file(s). | 972 "Remove tag for selected file(s). |
| 973 With prefix argument ARG, remove tag from file at point." | 973 With prefix argument ARG, remove tag from file at point." |
| 974 (interactive "P") | 974 (interactive "P") |
| 975 (let ((tag (read-string "Tag to remove: ")) | 975 (let ((tag (read-string "Tag to remove: ")) |
| 976 files) | 976 files) |
| 1489 (define-key dired-mode-map (kbd "C-S-p") 'tumme-previous-line-and-display) | 1489 (define-key dired-mode-map (kbd "C-S-p") 'tumme-previous-line-and-display) |
| 1490 (define-key dired-mode-map (kbd "C-S-m") 'tumme-mark-and-display-next) | 1490 (define-key dired-mode-map (kbd "C-S-m") 'tumme-mark-and-display-next) |
| 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-delete-tag) |
| 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-dired-display-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) |
| 1511 '("Comment files" . tumme-dired-comment-files)) | 1511 '("Comment files" . tumme-dired-comment-files)) |
| 1512 | 1512 |
| 1513 (define-key dired-mode-map [menu-bar tumme tumme-mark-tagged-files] | 1513 (define-key dired-mode-map [menu-bar tumme tumme-mark-tagged-files] |
| 1514 '("Mark tagged files" . tumme-mark-tagged-files)) | 1514 '("Mark tagged files" . tumme-mark-tagged-files)) |
| 1515 | 1515 |
| 1516 (define-key dired-mode-map [menu-bar tumme tumme-tag-remove] | 1516 (define-key dired-mode-map [menu-bar tumme tumme-delete-tag] |
| 1517 '("Remove tag from files" . tumme-tag-remove)) | 1517 '("Remove tag from files" . tumme-delete-tag)) |
| 1518 | 1518 |
| 1519 (define-key dired-mode-map [menu-bar tumme tumme-tag-files] | 1519 (define-key dired-mode-map [menu-bar tumme tumme-tag-files] |
| 1520 '("Tag files" . tumme-tag-files)) | 1520 '("Tag files" . tumme-tag-files)) |
| 1521 | 1521 |
| 1522 (define-key dired-mode-map [menu-bar tumme tumme-jump-thumbnail-buffer] | 1522 (define-key dired-mode-map [menu-bar tumme tumme-jump-thumbnail-buffer] |