Initialize image-dired auxilliary filenames relative to image-dired-dirs (Bug#7518).

* image-dired.el (image-dired-db-file)
(image-dired-temp-image-file, image-dired-gallery-dir)
(image-dired-temp-rotate-image-file): Set default values relative
to image-dired-dir (Bug#7518).

2 files changed, 11 insertions, 4 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 88fcbc850be..a758e7f0a7f 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,10 @@
+2010-12-06  Chong Yidong  <cyd@stupidchicken.com>
+
+        * image-dired.el (image-dired-db-file)
+        (image-dired-temp-image-file, image-dired-gallery-dir)
+        (image-dired-temp-rotate-image-file): Set default values relative
+        to image-dired-dir (Bug#7518).
+
 2010-12-06  Lawrence Mitchell  <lawrence.mitchell@ed.ac.uk>
 
         * format.el (format-decode-run-method): Pass args FROM and TO, not
diff --git a/lisp/image-dired.el b/lisp/image-dired.el
index f006e2e9edd..730dd1aadc8 100644
--- a/lisp/image-dired.el
+++ b/lisp/image-dired.el
@@ -186,19 +186,19 @@ that allows sharing of thumbnails across different programs."
   :group 'image-dired)
 
 (defcustom image-dired-db-file
-  (locate-user-emacs-file "image-dired/.image-dired_db")
+  (expand-file-name ".image-dired_db" image-dired-dir)
   "Database file where file names and their associated tags are stored."
   :type 'string
   :group 'image-dired)
 
 (defcustom image-dired-temp-image-file
-  (locate-user-emacs-file "image-dired/.image-dired_temp")
+  (expand-file-name ".image-dired_temp" image-dired-dir)
   "Name of temporary image file used by various commands."
   :type 'string
   :group 'image-dired)
 
 (defcustom image-dired-gallery-dir
-  (locate-user-emacs-file "image-dired/.image-dired_gallery")
+  (expand-file-name ".image-dired_gallery" image-dired-dir)
   "Directory to store generated gallery html pages.
 This path needs to be \"shared\" to the public so that it can access
 the index.html page that image-dired creates."
@@ -343,7 +343,7 @@ original image file name and %t which is replaced by
   :group 'image-dired)
 
 (defcustom image-dired-temp-rotate-image-file
-  (locate-user-emacs-file "image-dired/.image-dired_rotate_temp")
+  (expand-file-name ".image-dired_rotate_temp" image-dired-dir)
   "Temporary file for rotate operations."
   :type 'string
   :group 'image-dired)