Mercurial > emacs
changeset 100107:eff1b0128211
(unidata-prop-alist): Docstring for
`decomposition' property adjusted.
(unidata-split-decomposition): Don't include surrounding "<" and
">" in a symbol name.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Tue, 02 Dec 2008 01:12:14 +0000 |
| parents | 1b80a7b11e3f |
| children | a9b0bdacf93e |
| files | admin/unidata/unidata-gen.el |
| diffstat | 1 files changed, 4 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- a/admin/unidata/unidata-gen.el Tue Dec 02 01:12:02 2008 +0000 +++ b/admin/unidata/unidata-gen.el Tue Dec 02 01:12:14 2008 +0000 @@ -166,9 +166,8 @@ "Unicode decomposition mapping. Property value is a list of characters. The first element may be one of these symbols representing compatibility formatting tag: - <font>, <noBreak>, <initial>, <medial>, <final>, <isolated>, <circle>, - <super>, <sub>, <vertical>, <wide>, <narrow>, <small>, <square>, <fraction>, - <compat>" + font, noBreak, initial, medial, final, isolated, circle, super, + sub, vertical, wide, narrow, small, square, fraction, compat" unidata-describe-decomposition) (decimal-digit-value 6 unidata-gen-table-integer "uni-decimal.el" @@ -1027,11 +1026,11 @@ (setq c (aref str i)) (if (= c 32) (setq l (if (= (aref str idx) ?<) - (cons (intern (substring str idx i)) l) + (cons (intern (substring str (1+ idx) (1- i))) l) (cons (string-to-number (substring str idx i) 16) l)) idx (1+ i)))) (if (= (aref str idx) ?<) - (setq l (cons (intern (substring str idx len)) l)) + (setq l (cons (intern (substring str (1+ idx) (1- len))) l)) (setq l (cons (string-to-number (substring str idx len) 16) l))) (nreverse l)))))