From 4577244fc903ff0344abd1f9cf3d75e50b4fa953 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Tue, 11 Dec 2007 05:48:25 +0000 Subject: [PATCH] (url-configuration-directory): Make it a defcustom. --- lisp/url/url.el | 17 ++++++++++------- 1 file changed, 10 insertions(+), 7 deletions(-) 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. -- 2.39.2