# HG changeset patch
# User Chong Yidong <cyd@stupidchicken.com>
# Date 1181693044 0
# Node ID 62a65204ff7a10f691e8d2458034490506b9772c
# Parent  b612fb99981494b9749ead2929c8ed21bfc06d67
(save-completions-file-name): Use user-emacs-directory.

diff -r b612fb999814 -r 62a65204ff7a lisp/completion.el
--- a/lisp/completion.el	Wed Jun 13 00:03:49 2007 +0000
+++ b/lisp/completion.el	Wed Jun 13 00:04:04 2007 +0000
@@ -301,9 +301,9 @@
   (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