[Emacs-diffs] Changes to emacs/lisp/net/browse-url.el,v

[Michael Cadilhac]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Michael Cadilhac <cadilhac>     07/09/19 11:21:47

Index: browse-url.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/net/browse-url.el,v
retrieving revision 1.63
retrieving revision 1.64
diff -u -b -r1.63 -r1.64
--- browse-url.el       17 Sep 2007 15:59:41 -0000      1.63
+++ browse-url.el       19 Sep 2007 11:21:47 -0000      1.64
@@ -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.