diff options
author | Stefan Monnier <monnier@iro.umontreal.ca> | 2021-01-26 18:17:00 -0500 |
---|---|---|
committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2021-01-26 18:17:00 -0500 |
commit | b870e584a4275be83d6878001ee613997282fd37 (patch) | |
tree | bf9121b870271216fe9d30e453d83b98deeebc1b /lisp/url/url-expand.el | |
parent | a572b21928a33b7ede445769bde5a67356327fef (diff) | |
download | emacs-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.el | 2 |
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 ""))) |