Mercurial > emacs
diff lisp/completion.el @ 99106:814d2d823dd7
New function `locate-user-emacs-file'.
* subr.el (locate-user-emacs-file): New function.
(user-emacs-directory): Mention it in docstring.
* completion.el (save-completions-file-name):
* filesets.el (filesets-menu-cache-file):
* image-dired.el (image-dired-dir, image-dired-db-file)
(image-dired-temp-image-file, image-dired-gallery-dir)
(image-dired-temp-rotate-image-file):
* savehist.el (savehist-file):
* server.el (server-auth-dir):
* startup.el (auto-save-list-file-prefix):
* thumbs.el (thumbs-thumbsdir):
* tutorial.el (tutorial--saved-dir):
* play/gamegrid.el (gamegrid-user-score-file-directory): Use it.
* url.el (url-configuration-directory): Use `locate-user-emacs-file'.
* NEWS: New function `locate-user-emacs-file'.
author | Juanma Barranquero <lekktu@gmail.com> |
---|---|
date | Fri, 24 Oct 2008 09:39:27 +0000 |
parents | ee5932bf781d |
children | 2e0e3e5cbd97 |
line wrap: on
line diff
--- a/lisp/completion.el Fri Oct 24 07:23:34 2008 +0000 +++ b/lisp/completion.el Fri Oct 24 09:39:27 2008 +0000 @@ -296,13 +296,7 @@ :group 'completion) (defcustom save-completions-file-name - (let ((olddef (convert-standard-filename "~/.completions"))) - (cond - ((file-readable-p olddef) olddef) - ((file-directory-p user-emacs-directory) - (convert-standard-filename - (expand-file-name "completions" user-emacs-directory))) - (t olddef))) + (locate-user-emacs-file "completions" ".completions") "The filename to save completions to." :type 'file :group 'completion)