# HG changeset patch
# User Mathias Dahl <mathias.dahl@gmail.com>
# Date 1148220236 0
# Node ID ce0e66acbc059058b8f0828acbffa6191377e22f
# Parent  1727784ff9ff2ac521214d088bfa23f051da546f
Added information to the add-tags prompt.

diff -r 1727784ff9ff -r ce0e66acbc05 lisp/tumme.el
--- a/lisp/tumme.el	Sun May 21 08:33:46 2006 +0000
+++ b/lisp/tumme.el	Sun May 21 14:03:56 2006 +0000
@@ -976,7 +976,7 @@
 (defun tumme-tag-files (arg)
   "Tag marked file(s) in dired.  With prefix ARG, tag file at point."
   (interactive "P")
-  (let ((tag (read-string "Tag to add: "))
+  (let ((tag (read-string "Tags to add (separate tags with a semicolon): "))
         curr-file files)
     (if arg
         (setq files (dired-get-filename))
@@ -986,7 +986,7 @@
 (defun tumme-tag-thumbnail ()
   "Tag current thumbnail."
   (interactive)
-  (let ((tag (read-string "Tag to add: ")))
+  (let ((tag (read-string "Tags to add (separate tags with a semicolon): ")))
     (tumme-write-tag (tumme-original-file-name) tag))
   (tumme-update-property
    'tags (tumme-list-tags (tumme-original-file-name))))