From: Chong Yidong <cyd@stupidchicken.com>
Date: Sun, 30 Oct 2005 22:28:08 +0000 (+0000)
Subject: * thumbs.el (thumbs-thumbsdir): Default to ~/.emacs.d/thumbs.
X-Git-Tag: emacs-pretest-22.0.90~6175
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=6c060884e516305a19f04ae5c8b595fb90c22018;p=emacs.git

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