From: Glenn Morris <rgm@gnu.org>
Date: Tue, 11 Dec 2007 05:48:25 +0000 (+0000)
Subject: (url-configuration-directory): Make it a defcustom.
X-Git-Tag: emacs-pretest-23.0.90~8947
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4577244fc903ff0344abd1f9cf3d75e50b4fa953;p=emacs.git

(url-configuration-directory): Make it a defcustom.
---

diff --git a/lisp/url/url.el b/lisp/url/url.el
index c375a75e06f..448b31f4b68 100644
--- a/lisp/url/url.el
+++ b/lisp/url/url.el
@@ -46,13 +46,16 @@
 (require 'url-parse)
 (require 'url-util)
 
-;; Fixme: customize? convert-standard-filename?
-(defvar url-configuration-directory
-  (cond
-   ((file-directory-p "~/.url") "~/.url")
-   ((file-directory-p user-emacs-directory)
-    (concat user-emacs-directory "url"))
-   (t "~/.url")))
+
+;; FIXME convert-standard-filename?
+(defcustom url-configuration-directory
+  (if (and (file-directory-p user-emacs-directory)
+           (not (file-directory-p "~/.url")))
+      (expand-file-name "url" user-emacs-directory)
+    "~/.url")
+  "Directory used by the URL package for cookies, history, etc."
+  :type 'directory
+  :group 'url)
 
 (defun url-do-setup ()
   "Setup the url package.