(url-configuration-directory): Use ~/.emacs.d if possible.

208d4577 · Stefan Monnier · 398de718 · 208d4577
Commit 208d4577 authored Dec 21, 2005 by Stefan Monnier
Hide whitespace changes
Inline Side-by-side

Showing with 5 additions and 1 deletion

lisp/url/url.el lisp/url/url.el +5 -1

No files found.
--- a/lisp/url/url.el
+++ b/lisp/url/url.el
@@ -48,7 +48,11 @@

 ;; Fixme: customize? convert-standard-filename?
 ;;;###autoload
-(defvar url-configuration-directory "~/.url")
+(defvar url-configuration-directory
+  (cond
+   ((file-directory-p "~/.url") "~/.url")
+   ((file-directory-p "~/.emacs.d") "~/.emacs.d/url")
+   (t "~/.url")))

 (defun url-do-setup ()
  "Setup the url package.