summaryrefslogtreecommitdiff
path: root/lisp/url/url-expand.el
diff options
context:
space:
mode:
authorStefan Monnier <monnier@iro.umontreal.ca>2021-01-26 18:17:00 -0500
committerStefan Monnier <monnier@iro.umontreal.ca>2021-01-26 18:17:00 -0500
commitb870e584a4275be83d6878001ee613997282fd37 (patch)
treebf9121b870271216fe9d30e453d83b98deeebc1b /lisp/url/url-expand.el
parenta572b21928a33b7ede445769bde5a67356327fef (diff)
downloademacs-b870e584a4275be83d6878001ee613997282fd37.tar.gz
emacs-b870e584a4275be83d6878001ee613997282fd37.tar.bz2
emacs-b870e584a4275be83d6878001ee613997282fd37.zip
Use lexical-binding in all of `lisp/url`
* lisp/url/url-dav.el: Use lexical-binding. (url-dav-process-DAV:prop): Remove unused var `handler-func`. (url-dav-lock-resource): Remove unused var `child-url`. (url-dav-active-locks): Remove unused var `properties`. (url-dav-delete-directory): Remove unused var `props`. (url-dav-file-name-completion): Remove unused var `result`. * lisp/url/url-expand.el (url-expand-file-name): Use \s * lisp/url/url-file.el (url-file): Improve regexp. * lisp/url/url-gw.el: Use lexical-binding. (url-open-stream): Remove unused var `cur-retries`, `retry`, `errobj`. * lisp/url/url-imap.el: Use lexical-binding. (imap-username, imap-password): Declare. * lisp/url/url-mailto.el: Use lexical-binding. (url-mailto): Remove unused var `func`. Use `push`. * lisp/url/url-news.el: Use lexical-binding. (url-news): Remove unused var `article-brackets`. * lisp/url/url-cid.el: * lisp/url/url-cache.el: * lisp/url/url-about.el: * lisp/url/url-tramp.el: * lisp/url/url-proxy.el: * lisp/url/url-privacy.el: * lisp/url/url-nfs.el: * lisp/url/url-ldap.el: * lisp/url/url-misc.el: * lisp/url/url-methods.el: Use lexical-binding.
Diffstat (limited to 'lisp/url/url-expand.el')
-rw-r--r--lisp/url/url-expand.el2
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/url/url-expand.el b/lisp/url/url-expand.el
index a42b4c7ad23..05088e3cac8 100644
--- a/lisp/url/url-expand.el
+++ b/lisp/url/url-expand.el
@@ -66,7 +66,7 @@ path components followed by `..' are removed, along with the `..' itself."
;; Need to nuke newlines and spaces in the URL, or we open
;; ourselves up to potential security holes.
(setq url (mapconcat (lambda (x)
- (if (memq x '(? ?\n ?\r))
+ (if (memq x '(?\s ?\n ?\r))
""
(char-to-string x)))
url "")))