mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

Revert previous url-util patch.

Browse source 
The caller can as easily do the decoding themselves.
This commit is contained in:
Lars Magne Ingebrigtsen 2012-04-10 19:02:04 +02:00
parent 2a8ce227d0
commit 8d8d31f91e
2 changed files with 3 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

10
lisp/url/url-util.el
View file

@ -308,13 +308,11 @@ Will not do anything if `url-show-status' is nil."
;; str))
;;;###autoload
(defun url-unhex-string (str &optional allow-newlines coding-system)
(defun url-unhex-string (str &optional allow-newlines)
"Remove %XX embedded spaces, etc in a URL.
If optional second argument ALLOW-NEWLINES is non-nil, then allow the
decoding of carriage returns and line feeds in the string, which is normally
forbidden in URL encoding.
If CODING-SYSTEM is non-nil, interpret the unhexed string as
being encoded in that coding system."
forbidden in URL encoding."
(setq str (or str ""))
(let ((tmp "")
(case-fold-search t))
@ -333,9 +331,7 @@ being encoded in that coding system."
(t (byte-to-string code))))
str (substring str (match-end 0)))))
(setq tmp (concat tmp str))
(if coding-system
(decode-coding-string tmp coding-system)
tmp)))
tmp))
(defconst url-unreserved-chars
'(