mirror of
git://git.sv.gnu.org/emacs.git
synced 2025-12-15 10:30:25 -08:00
Don't quote lambda expressions with `quote'.
This commit is contained in:
parent
782fc81943
commit
4f91a8160f
77 changed files with 466 additions and 493 deletions
|
|
@ -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)
|
||||
""))
|
||||
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue