Commit 4577244f authored by Glenn Morris's avatar Glenn Morris
Browse files

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

parent cef98b13
...@@ -46,13 +46,16 @@ ...@@ -46,13 +46,16 @@
(require 'url-parse) (require 'url-parse)
(require 'url-util) (require 'url-util)
;; Fixme: customize? convert-standard-filename?
(defvar url-configuration-directory ;; FIXME convert-standard-filename?
(cond (defcustom url-configuration-directory
((file-directory-p "~/.url") "~/.url") (if (and (file-directory-p user-emacs-directory)
((file-directory-p user-emacs-directory) (not (file-directory-p "~/.url")))
(concat user-emacs-directory "url")) (expand-file-name "url" user-emacs-directory)
(t "~/.url"))) "~/.url")
"Directory used by the URL package for cookies, history, etc."
:type 'directory
:group 'url)
(defun url-do-setup () (defun url-do-setup ()
"Setup the url package. "Setup the url package.
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment