diff options
Diffstat (limited to 'lisp/url/url-cache.el')
| -rw-r--r-- | lisp/url/url-cache.el | 23 |
1 files changed, 11 insertions, 12 deletions
diff --git a/lisp/url/url-cache.el b/lisp/url/url-cache.el index 056ad1e0188..ea14e60ecc8 100644 --- a/lisp/url/url-cache.el +++ b/lisp/url/url-cache.el @@ -110,18 +110,17 @@ The actual return value is the last modification time of the cache file." (let ((slash nil)) (setq fname (mapconcat - (function - (lambda (x) - (cond - ((and (= ?/ x) slash) - (setq slash nil) - "%2F") - ((= ?/ x) - (setq slash t) - "/") - (t - (setq slash nil) - (char-to-string x))))) fname "")))) + (lambda (x) + (cond + ((and (= ?/ x) slash) + (setq slash nil) + "%2F") + ((= ?/ x) + (setq slash t) + "/") + (t + (setq slash nil) + (char-to-string x)))) fname "")))) (setq fname (and fname (mapconcat |