Re: xml.el patches for better spec compliance

[Juanma Barranquero <lektu@terra.es>]

On Wed, 12 Mar 2003 15:04:11 -0600, mah@everybody.org (Mark A. Hershberger) wrote:

> [This patch replaces the one sent earlier.]

[...]


> *** 451,456 ****
> --- 469,485 ----
>       (setq string (replace-match "'"  t nil string)))
>     (while (string-match """ string)
>       (setq string (replace-match "\"" t nil string)))
> +   (while (string-match "&#\\([0-9]+\\);" string)
> +     (setq string (replace-match (char-to-ucs
> + 				 (string-to-int
> + 				  (match-string-no-properties 1 string)))
> + 				t nil string)))
> +   (while (string-match "&#x\\([0-9a-fA-F]+\\);" string)
> +     (setq string (replace-match (char-to-ucs
> + 				 (hex-string-to-number
> + 				  (match-string-no-properties 1 string)))
> + 				t nil string)))
> + 
>     ;; This goes last so it doesn't confuse the matches above.
>     (while (string-match "&" string)
>       (setq string (replace-match "&"  t nil string)))

Are `char-to-ucs' and `hex-string-to-number' XEmacs functions?

                                                           /L/e/k/t/u