Mercurial > emacs
changeset 66568:624edd899d32
* thumbs.el (thumbs-thumbsdir): Default to ~/.emacs.d/thumbs.
(thumbs-thumbsdir): Make .emacs.d if it does not exist.
| author | Chong Yidong <cyd@stupidchicken.com> |
|---|---|
| date | Sun, 30 Oct 2005 22:28:08 +0000 |
| parents | 1b800330fe1f |
| children | 66784ee73f14 |
| files | lisp/ChangeLog lisp/thumbs.el |
| diffstat | 2 files changed, 7 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Sun Oct 30 22:16:46 2005 +0000 +++ b/lisp/ChangeLog Sun Oct 30 22:28:08 2005 +0000 @@ -1,3 +1,8 @@ +2005-10-30 Chong Yidong <cyd@stupidchicken.com> + + * thumbs.el (thumbs-thumbsdir): Default to ~/.emacs.d/thumbs. + (thumbs-thumbsdir): Make .emacs.d if it does not exist. + 2005-10-30 Michael Albinus <michael.albinus@gmx.de> * net/tramp.el (tramp-chunksize): Escape parentheses in docstring
--- a/lisp/thumbs.el Sun Oct 30 22:16:46 2005 +0000 +++ b/lisp/thumbs.el Sun Oct 30 22:28:08 2005 +0000 @@ -65,7 +65,7 @@ :version "22.1" :group 'multimedia) -(defcustom thumbs-thumbsdir "~/.emacs-thumbs" +(defcustom thumbs-thumbsdir "~/.emacs.d/thumbs" "*Directory to store thumbnails." :type 'directory :group 'thumbs) @@ -190,7 +190,7 @@ (let ((thumbs-thumbsdir (file-name-as-directory (expand-file-name thumbs-thumbsdir)))) (unless (file-directory-p thumbs-thumbsdir) - (make-directory thumbs-thumbsdir) + (make-directory thumbs-thumbsdir t) (message "Creating thumbnails directory")) thumbs-thumbsdir))