procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source
This commit is contained in:
Glenn Morris 2007-12-11 05:48:25 +00:00
parent cef98b1310
commit 4577244fc9
1 changed files with 10 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

17
lisp/url/url.el
View file

@ -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.