[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: xml.el patches for better spec compliance
From: |
Juanma Barranquero |
Subject: |
Re: xml.el patches for better spec compliance |
Date: |
Thu, 13 Mar 2003 11:31:36 +0100 |
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