       (dired-make-relative file))))     ; Return file name for failure.
 
 ;;;###autoload
-(defun diredp-mouse-do-remove-all-tags (event)    ; Not bound
-  "In Dired, remove all tags from this file.
+(defun diredp-mouse-do-remove-all-tags (event) ; Not bound
+  "In Dired, remove all tags from the marked (or next prefix arg) files.
 You need library `bookmark+.el' to use this command."
   (interactive "e")
   (unless (require 'bookmark+ nil t) (error "This command requires library `bookmark+.el'"))

;; Similar to `dired-mark-extension' in `dired-x.el'.
;; The difference is that this uses prefix arg to unmark, not to determine the mark character.
;;;###autoload
(defun diredp-mark/unmark-extension (extension &optional unmark-p)
  "Mark all files with a certain EXTENSION for use in later commands.
A `.' is not automatically prepended to the string entered.
Non-nil prefix argument UNMARK-P means unmark instead of mark."

  (dired-do-create-files 'move #'dired-rename-file "Move" 1 dired-keep-marker-rename "Rename"))

;;;###autoload
(defun diredp-mouse-upcase (event)      ; Not bound
  "In Dired, rename this file to upper case."
  (interactive "e")
  (let ((mouse-pos  (event-start event)))
