Function: image-dired-add-to-tag-file-list

image-dired-add-to-tag-file-list is a byte-compiled function defined in image-dired.el.gz.

This function is obsolete since 29.1.

Signature

(image-dired-add-to-tag-file-list TAG FILE)

Documentation

Add relation between TAG and FILE.

Source Code

;; Defined in /usr/src/emacs/lisp/image/image-dired.el.gz
(defun image-dired-add-to-tag-file-list (tag file)
  "Add relation between TAG and FILE."
  (declare (obsolete nil "29.1"))
  (let (curr)
    (if image-dired-tag-file-list
        (if (setq curr (assoc tag image-dired-tag-file-list))
            (if (not (member file curr))
                (setcdr curr (cons file (cdr curr))))
          (setcdr image-dired-tag-file-list
                  (cons (list tag file) (cdr image-dired-tag-file-list))))
      (setq image-dired-tag-file-list (list (list tag file))))))