Mercurial > emacs
changeset 84648:ea4647942299
(browse-url-url-encode-chars): Use the right parameter name in the function body.
Reported by Johannes Weiner.
| author | Michaël Cadilhac <michael.cadilhac@lrde.org> |
|---|---|
| date | Wed, 19 Sep 2007 11:21:47 +0000 |
| parents | 260383892b0f |
| children | d001e127665c |
| files | lisp/net/browse-url.el |
| diffstat | 1 files changed, 6 insertions(+), 6 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/net/browse-url.el Wed Sep 19 10:02:43 2007 +0000 +++ b/lisp/net/browse-url.el Wed Sep 19 11:21:47 2007 +0000 @@ -622,15 +622,15 @@ (defun browse-url-url-encode-chars (text chars) "URL-encode the chars in TEXT that match CHARS. CHARS is a regexp-like character alternative (e.g., \"[,)$]\")." - (let ((encoded-url (copy-sequence url)) + (let ((encoded-text (copy-sequence text)) (s 0)) - (while (setq s (string-match chars encoded-url s)) - (setq encoded-url + (while (setq s (string-match chars encoded-text s)) + (setq encoded-text (replace-match (format "%%%x" - (string-to-char (match-string 0 encoded-url))) - t t encoded-url) + (string-to-char (match-string 0 encoded-text))) + t t encoded-text) s (1+ s))) - encoded-url)) + encoded-text)) (defun browse-url-encode-url (url) "Escape annoying characters in URL.