'tags (tumme-list-tags (tumme-original-file-name))))
;;;###autoload
-(defun tumme-tag-remove (arg)
+(defun tumme-delete-tag (arg)
"Remove tag for selected file(s).
With prefix argument ARG, remove tag from file at point."
(interactive "P")
(define-key dired-mode-map "\C-td" 'tumme-display-thumbs)
(define-key dired-mode-map "\C-tt" 'tumme-tag-files)
- (define-key dired-mode-map "\C-tr" 'tumme-tag-remove)
+ (define-key dired-mode-map "\C-tr" 'tumme-delete-tag)
(define-key dired-mode-map [tab] 'tumme-jump-thumbnail-buffer)
(define-key dired-mode-map "\C-ti" 'tumme-dired-display-image)
(define-key dired-mode-map "\C-tx" 'tumme-dired-display-external)
(define-key dired-mode-map [menu-bar tumme tumme-mark-tagged-files]
'("Mark tagged files" . tumme-mark-tagged-files))
- (define-key dired-mode-map [menu-bar tumme tumme-tag-remove]
- '("Remove tag from files" . tumme-tag-remove))
+ (define-key dired-mode-map [menu-bar tumme tumme-delete-tag]
+ '("Remove tag from files" . tumme-delete-tag))
(define-key dired-mode-map [menu-bar tumme tumme-tag-files]
'("Tag files" . tumme-tag-files))