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

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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index f70d37ef25b6e77bce9dd81b7e9156b3ce4e0ecc..d784f77ff11680a57c2547261d9fac190c3a6bf0 100644 (file)
--- 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 9a41507e41004ecb4b22e9af89a2ba1f7fe2de43..2a8f6b217d4a4e87223bbca5de8f3f45e64d3dbe 100644 (file)
--- 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))