From: Chong Yidong <cyd@stupidchicken.com>
Date: Wed, 13 Jun 2007 00:04:04 +0000 (+0000)
Subject: (save-completions-file-name): Use user-emacs-directory.
X-Git-Tag: emacs-pretest-23.0.90~12339
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=0e8a0445d2f736e59616c5c84ea47a40fc8636c7;p=emacs.git

(save-completions-file-name): Use user-emacs-directory.
---

diff --git a/lisp/completion.el b/lisp/completion.el
index 25b95852536..c9e27ab3091 100644
--- a/lisp/completion.el
+++ b/lisp/completion.el
@@ -301,9 +301,9 @@ See also `save-completions-retention-time'."
   (let ((olddef (convert-standard-filename "~/.completions")))
     (cond
      ((file-readable-p olddef) olddef)
-     ((file-directory-p (convert-standard-filename "~/.emacs.d/"))
+     ((file-directory-p user-emacs-directory)
       (convert-standard-filename
-       (expand-file-name "completions" "~/.emacs.d/")))
+       (expand-file-name "completions" user-emacs-directory)))
      (t olddef)))
   "The filename to save completions to."
   :type 'file