Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
4577244f
Commit
4577244f
authored
Dec 11, 2007
by
Glenn Morris
Browse files
(url-configuration-directory): Make it a defcustom.
parent
cef98b13
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
10 additions
and
7 deletions
+10
-7
lisp/url/url.el
lisp/url/url.el
+10
-7
No files found.
lisp/url/url.el
View file @
4577244f
...
@@ -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.
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment