diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2011-05-23 14:57:17 -0300 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2011-05-23 14:57:17 -0300 |
| commit | 4f91a8160fe71295b7ad4d6e3f90f004caa3546c (patch) | |
| tree | c0f3f767b785559ee0387e7cfb54a2a1aa06bcd5 /lisp/net/webjump.el | |
| parent | 782fc81943849d699d74c3039be80d4068bb3422 (diff) | |
| download | emacs-4f91a8160fe71295b7ad4d6e3f90f004caa3546c.tar.gz | |
Don't quote lambda expressions with `quote'.
Diffstat (limited to 'lisp/net/webjump.el')
| -rw-r--r-- | lisp/net/webjump.el | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/lisp/net/webjump.el b/lisp/net/webjump.el index be79bc721e2..3a2560b3c61 100644 --- a/lisp/net/webjump.el +++ b/lisp/net/webjump.el @@ -447,11 +447,11 @@ Please submit bug reports and other feedback to the author, Neil W. Van Dyke (or (null str) (string-match "^[ \t]*$" str))) (defun webjump-url-encode (str) - (mapconcat '(lambda (c) - (let ((s (char-to-string c))) - (cond ((string= s " ") "+") - ((string-match "[a-zA-Z_.-/]" s) s) - (t (upcase (format "%%%02x" c)))))) + (mapconcat (lambda (c) + (let ((s (char-to-string c))) + (cond ((string= s " ") "+") + ((string-match "[a-zA-Z_.-/]" s) s) + (t (upcase (format "%%%02x" c)))))) (encode-coding-string str 'utf-8) "")) |