Re: How to replace a string to Unicode escape?

[ptmono]

Thanks.


harven <harven@free.fr> writes:
> Here is a ugly hack (use at your own risk)
>
> (defun my-ucs (arg)
>   "return unicode character \\uxxxx from string \"%uxxxx\" or return \"\".
>    probably fails badly if xxx is not a valid hex code"
>     (or 
>       (char-to-string
>         (decode-char 'ucs
>                (string-to-number
>                    (substring arg 2) 16)))
>       ""))
>
> (replace-regexp-in-string 
>      "%u...."
>      'my-ucs
>      "%uc0ac%ub791 sarang %uc0ac%ub791")
>
>  -->  "사랑 sarang 사랑"
>
> Cheers