diff options
Diffstat (limited to 'lisp/url/url-expand.el')
| -rw-r--r-- | lisp/url/url-expand.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/url/url-expand.el b/lisp/url/url-expand.el index be9b5426dc4..9f52f2586f4 100644 --- a/lisp/url/url-expand.el +++ b/lisp/url/url-expand.el @@ -65,10 +65,10 @@ path components followed by `..' are removed, along with the `..' itself." (if (and url (not (string-match "^#" url))) ;; Need to nuke newlines and spaces in the URL, or we open ;; ourselves up to potential security holes. - (setq url (mapconcat (function (lambda (x) - (if (memq x '(? ?\n ?\r)) - "" - (char-to-string x)))) + (setq url (mapconcat (lambda (x) + (if (memq x '(? ?\n ?\r)) + "" + (char-to-string x))) url ""))) ;; Need to figure out how/where to expand the fragment relative to |