Function: image-dired-save-information-from-widgets

image-dired-save-information-from-widgets is a byte-compiled function defined in image-dired.el.gz.

Signature

(image-dired-save-information-from-widgets)

Documentation

Save information found in image-dired-widget-list.

Use the information in image-dired-widget-list to save comments and tags to their respective image file. Internal function used by image-dired-dired-edit-comment-and-tags.

Source Code

;; Defined in /usr/src/emacs/lisp/image-dired.el.gz
(defun image-dired-save-information-from-widgets ()
  "Save information found in `image-dired-widget-list'.
Use the information in `image-dired-widget-list' to save comments and
tags to their respective image file.  Internal function used by
`image-dired-dired-edit-comment-and-tags'."
  (let (file comment tag-string tag-list lst)
    (image-dired-write-comments
          (mapcar
           (lambda (widget)
             (setq file (car widget)
                   comment (widget-value (cadr widget)))
             (cons file comment))
           image-dired-widget-list))
    (image-dired-write-tags
     (dolist (widget image-dired-widget-list lst)
       (setq file (car widget)
             tag-string (widget-value (car (cddr widget)))
             tag-list (split-string tag-string ","))
       (dolist (tag tag-list)
         (push (cons file tag) lst))))))