Commit 6c060884 authored by Chong Yidong's avatar Chong Yidong
Browse files

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

	(thumbs-thumbsdir): Make .emacs.d if it does not exist.
parent 4cf71604
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> 2005-10-30 Michael Albinus <michael.albinus@gmx.de>
   
* net/tramp.el (tramp-chunksize): Escape parentheses in docstring * net/tramp.el (tramp-chunksize): Escape parentheses in docstring
......
...@@ -65,7 +65,7 @@ ...@@ -65,7 +65,7 @@
:version "22.1" :version "22.1"
:group 'multimedia) :group 'multimedia)
(defcustom thumbs-thumbsdir "~/.emacs-thumbs" (defcustom thumbs-thumbsdir "~/.emacs.d/thumbs"
"*Directory to store thumbnails." "*Directory to store thumbnails."
:type 'directory :type 'directory
:group 'thumbs) :group 'thumbs)
...@@ -190,7 +190,7 @@ Create the thumbnails directory if it does not exist." ...@@ -190,7 +190,7 @@ Create the thumbnails directory if it does not exist."
(let ((thumbs-thumbsdir (file-name-as-directory (let ((thumbs-thumbsdir (file-name-as-directory
(expand-file-name thumbs-thumbsdir)))) (expand-file-name thumbs-thumbsdir))))
(unless (file-directory-p thumbs-thumbsdir) (unless (file-directory-p thumbs-thumbsdir)
(make-directory thumbs-thumbsdir) (make-directory thumbs-thumbsdir t)
(message "Creating thumbnails directory")) (message "Creating thumbnails directory"))
thumbs-thumbsdir)) thumbs-thumbsdir))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment