mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-20 18:17:20 +00:00
Code Issues Releases Activity

(tumme-thumbnail-storage): Fix docstring.

Browse Source 
(tumme-thumb-name): Fix per-directory format.
This commit is contained in:
Juri Linkov 2006-02-13 14:47:25 +00:00
parent 0c0351b599
commit ace665ea95
2 changed files with 9 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/ChangeLog
View File

@ -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).

8
lisp/tumme.el
View File

@ -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))))))