(tumme-thumbnail-storage): Fix docstring.

(tumme-thumb-name): Fix per-directory format.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 449470c23f80b46b464c8999e6f63507bc48566c..c53fb8122b8fdddd5aa4e0375229f438bf4bd138 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2006-02-13  Juri Linkov  <juri@jurta.org>
+
+       * tumme.el (tumme-thumbnail-storage): Fix docstring.
+       (tumme-thumb-name): Fix per-directory format.
+
 2006-02-13  Juanma Barranquero  <lekktu@gmail.com>
 
        * subr.el (substitute-key-definition): Doc fix (hide internal arg).

diff --git a/lisp/tumme.el b/lisp/tumme.el
index 3ccffbc4386f19f43c351ee6481314b6886f91b1..6cec3e73a16d4fb8d5150363cf818ca4ec0f8904 100644 (file)
--- a/lisp/tumme.el
+++ b/lisp/tumme.el
@@ -213,8 +213,8 @@ thumbnails are stored in a central directory.  \"Per directory\"
 means that each thumbnail is stored in a subdirectory called
 \".tumme\" in the same directory where the image file is.
 \"Thumbnail Managing Standard\" means that the thumbnails are
-stored and generated according to the Thumbnail Managing
-Standard."
+stored and generated according to the Thumbnail Managing Standard
+that allows sharing of thumbnails across different programs."
   :type '(choice :tag "How to store thumbnail files"
                  (const :tag "Thumbnail Managing Standard" standard)
                  (const :tag "Use tumme-dir" use-tumme-dir)
@@ -629,8 +629,8 @@ according to the Thumbnail Managing Standard."
                    (file-name-extension f))))
         ((eq 'per-directory tumme-thumbnail-storage)
          (let ((f (expand-file-name file)))
-           (format "%s%s%s.thumb.%s"
-                   (format "%s.tumme/" (file-name-directory f))
+           (format "%s.tumme/%s.thumb.%s"
+                   (file-name-directory f)
                    (file-name-sans-extension (file-name-nondirectory f))
                    (file-name-extension f))))))