* thumbs.el (thumbs-thumbsdir): Default to ~/.emacs.d/thumbs.

	(thumbs-thumbsdir): Make .emacs.d if it does not exist.

2 files changed, 7 insertions, 2 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index f70d37ef25b..d784f77ff11 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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
diff --git a/lisp/thumbs.el b/lisp/thumbs.el
index 9a41507e410..2a8f6b217d4 100644
--- a/lisp/thumbs.el
+++ b/lisp/thumbs.el
@@ -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 @@ Create the thumbnails directory if it does not exist."
   (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))