# HG changeset patch
# User Micha¸«³l Cadilhac <michael.cadilhac@lrde.org>
# Date 1190200907 0
# Node ID ea46479422998afddf28632a4a54630b6a5d722d
# Parent  260383892b0f03dd45ce86f10a087115a8e39a71
(browse-url-url-encode-chars): Use the right parameter name in the function body.
Reported by Johannes Weiner.

diff -r 260383892b0f -r ea4647942299 lisp/net/browse-url.el
--- 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.