Function: image-dired-tag-files

image-dired-tag-files is an autoloaded, interactive and byte-compiled function defined in image-dired-tags.el.gz.

Signature

(image-dired-tag-files ARG)

Documentation

Tag file(s) which are marked in a Dired buffer.

With prefix ARG, tag the file at point.

Key Bindings

Source Code

;; Defined in /usr/src/emacs/lisp/image/image-dired-tags.el.gz
;;;###autoload
(defun image-dired-tag-files (arg)
  "Tag file(s) which are marked in a Dired buffer.
With prefix ARG, tag the file at point."
  (interactive "P" dired-mode)
  (let ((tag (completing-read
              "Tags to add (separate tags with a semicolon): "
              image-dired-tag-history nil nil nil 'image-dired-tag-history))
        files)
    (if arg
        (setq files (list (dired-get-filename)))
      (setq files (dired-get-marked-files)))
    (image-dired-write-tags
     (mapcar
      (lambda (x)
        (cons x tag))
      files))))