Re: [Emacs-diffs] /srv/bzr/emacs/trunk r107826: (url-unhex-string): Add an optional CODING-SYSTEM parameter.

[Stefan Monnier]

> -(defun url-unhex-string (str &optional allow-newlines)
> +(defun url-unhex-string (str &optional allow-newlines coding-system)
>    "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."
> +forbidden in URL encoding.
> +If CODING-SYSTEM is non-nil, interpret the unhexed string as
> +being encoded in that coding system."
>    (setq str (or str ""))
>    (let ((tmp "")
>       (case-fold-search t))
> @@ -331,7 +333,9 @@
>                   (t (byte-to-string code))))
>             str (substring str (match-end 0)))))
>      (setq tmp (concat tmp str))
> -    tmp))
> +    (if coding-system
> +     (decode-coding-string tmp coding-system)
> +      tmp)))
 
>  (defconst url-unreserved-chars
>    '(

Actually, I'd rather not do that: it's just as easy to call
decode-coding-string manually from the caller.


        Stefan