Mercurial > hg > xemacs-beta
view etc/unicode/mule-ucs/README @ 5642:5bda701e9e7c
Be more careful about non-quoted-symbol TAGs, #'byte-compile-catch
lisp/ChangeLog addition:
2012-01-14 Aidan Kehoe <kehoea@parhasard.net>
* bytecomp.el (byte-compile-catch):
Be more careful about non-quoted-symbol TAGs here; thank you
Robert Pluim in
CAMTcmTeLaZVrABnP-1MRUA3ZpZ=h2S_YVxKWDDNuc5bAyJD-gg@mail.gmail.com !
tests/ChangeLog addition:
2012-01-14 Aidan Kehoe <kehoea@parhasard.net>
* automated/lisp-tests.el:
Check that `byte-compile-catch' doesn't strip keyword (as such,
non-quoted) TAGs.
author | Aidan Kehoe <kehoea@parhasard.net> |
---|---|
date | Sat, 14 Jan 2012 12:16:05 +0000 |
parents | a29c4eef8f00 |
children |
line wrap: on
line source
The files in this directory were converted from data in the mule-ucs package (mule-ucs/lisp/reldata/*), using this code: (defun convert-mule-ucs-file (start end) (interactive "r") (with-output-to-temp-buffer "*mule-ucs-convert*" (save-excursion (goto-char start) (while (re-search-forward "(\\?\\(.\\) \\. \"\\(.*\\)\") ;+ \\(.*\\)$" end t) (let ((ch (string-to-char (match-string 1))) (codepoint (match-string 2)) (name (match-string 3))) (if (= 1 (charset-dimension (char-charset ch))) (princ (format "0x%x %s # %s\n" (char-octet ch) codepoint name)) (princ (format "0x%x%x %s # %s\n" (char-octet ch 0) (char-octet ch 1) codepoint name)))))))) Each file is named after the XEmacs charset it represents. The CNS files contain more codepoints than those in unicode-consortium/ because they list codepoints above 0xFFFF, those handled by surrogates (supported starting in Windows 2000, I think, but not yet by XEmacs).