Mercurial > emacs

changeset 72093:e75e38c3a62f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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.
author Mathias Dahl <mathias.dahl@gmail.com>
date Mon, 24 Jul 2006 16:27:01 +0000
parents 08ca4c4e9306
children 7da1e62f312e
files lisp/tumme.el
diffstat 1 files changed, 8 insertions(+), 8 deletions(-) [+]
line wrap: on
line diff
--- 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."))