# HG changeset patch
# User Mathias Dahl <mathias.dahl@gmail.com>
# Date 1153758421 0
# Node ID e75e38c3a62f621f419c7f70c1d953829d42f8dd
# Parent  08ca4c4e93060ff995737fd8b76918f383170903
(tumme-write-tags): Add.
(tumme-write-comments): Add.
(tumme-tag-files): Change to use `tumme-write-tags'.
(tumme-tag-thumbnail): Change to use `tumme-write-tags'.
(tumme-dired-comment-files): Change to use `tumme-write-comments'.
(tumme-save-information-from-widgets): Change to use
`tumme-write-comments' and `tumme-write-tags'.
(tumme-comment-thumbnail): Change to use `tumme-write-comments'.
(tumme-write-tag): Remove.
(tumme-write-comment): Remove.
(tumme-display-previous-thumbnail-original): Remove empty line.
(tumme-widget-list): Add punctuation.

diff -r 08ca4c4e9306 -r e75e38c3a62f lisp/tumme.el
--- a/lisp/tumme.el	Mon Jul 24 16:22:44 2006 +0000
+++ b/lisp/tumme.el	Mon Jul 24 16:27:01 2006 +0000
@@ -84,7 +84,7 @@
 ;; USAGE
 ;; =====
 ;;
-;; This information has been moved to the manual. Type `C-h r' to open
+;; This information has been moved to the manual.  Type `C-h r' to open
 ;; the Emacs manual and go to the node Thumbnails by typing `g
 ;; Thumbnails RET'.
 ;;
@@ -648,7 +648,7 @@
                                ;; Can't use (overlays-at (point)), BUG?
                                (overlays-in (point) (1+ (point)))))
        (put-image thumb-file image-pos)
-       (setq 
+       (setq
 	overlay
 	(car (delq nil (mapcar (lambda (o) (and (overlay-get o 'put-image) o))
 			       (overlays-in (point) (1+ (point)))))))
@@ -2431,7 +2431,7 @@
     (kill-buffer buffer)))
 
 (defvar tumme-widget-list nil
-  "List to keep track of meta data in edit buffer")
+  "List to keep track of meta data in edit buffer.")
 
 ;;;###autoload
 (defun tumme-dired-edit-comment-and-tags ()
@@ -2449,7 +2449,7 @@
       (erase-buffer))
     (remove-overlays)
     ;; Some help for the user.
-    (widget-insert 
+    (widget-insert
 "\nEdit comments and tags for each image.  Separate multiple tags
 with a comma.  Move forward between fields using TAB or RET.
 Move to the previous field using backtab (S-TAB).  Save by
@@ -2483,15 +2483,15 @@
                                         ",") "")))
        ;; Save information in all widgets so that we can use it when
        ;; the user saves the form.
-       (setq tumme-widget-list 
-             (append tumme-widget-list 
+       (setq tumme-widget-list
+             (append tumme-widget-list
                      (list (list file comment-widget tag-widget))))
        (widget-insert "\n\n")))
 
     ;; Footer with Save and Cancel button.
     (widget-insert "\n")
     (widget-create 'push-button
-                 :notify 
+                 :notify
                  (lambda (&rest ignore)
                    (tumme-save-information-from-widgets)
                    (bury-buffer)
@@ -2499,7 +2499,7 @@
                  "Save")
     (widget-insert " ")
     (widget-create 'push-button
-                   :notify 
+                   :notify
                    (lambda (&rest ignore)
                      (bury-buffer)
                      (message "Operation canceled."))