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

1 files changed, 5 insertions, 1 deletions

diff --git a/lisp/url/url.el b/lisp/url/url.el
index 81d2d39c281..296b2b9f868 100644
--- 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.