mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-28 10:56:36 +00:00
Code Issues Releases Activity

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

Browse Source 
(thumbs-thumbsdir): Make .emacs.d if it does not exist.
This commit is contained in:
Chong Yidong 2005-10-30 22:28:08 +00:00
parent 4cf716044e
commit 6c060884e5
2 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/ChangeLog
View File

@ -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

4
lisp/thumbs.el
View File

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