(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 --git a/lisp/ChangeLog b/lisp/ChangeLog
index 2a957b289d26299bcb90ecd44796ccc6a1dba272..bbd780d2f663e861d31db1e48a1c9a16a7476726 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -11,6 +11,7 @@
        (tumme-write-tag): Remove.
        (tumme-write-comment): Remove.
        (tumme-display-previous-thumbnail-original): Remove empty line.
+       (tumme-widget-list): Add punctuation.
 
 2006-07-24  mathias  <mathias.dahl@gmail.com>
 

diff --git a/lisp/tumme.el b/lisp/tumme.el
index d7fae222aa292418adb2453a7bb5a6d9059f1641..c9f9b83ef32169a2dab0b2783dd6a4c4fef17894 100644 (file)
--- a/lisp/tumme.el
+++ b/lisp/tumme.el
@@ -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 @@ according to the Thumbnail Managing Standard."
                                ;; 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 @@ when using per-directory thumbnail file storage"))
     (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 @@ easy-to-use form."
       (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 @@ the operation by activating the Cancel button.\n\n")
                                         ",") "")))
        ;; 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 @@ the operation by activating the Cancel button.\n\n")
                  "Save")
     (widget-insert " ")
     (widget-create 'push-button
-                   :notify 
+                   :notify
                    (lambda (&rest ignore)
                      (bury-buffer)
                      (message "Operation canceled."))