procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(unidata-prop-alist): Docstring for

Browse source 
`decomposition' property adjusted.
(unidata-split-decomposition): Don't include surrounding "<" and
">" in a symbol name.
This commit is contained in:
Kenichi Handa 2008-12-02 01:12:14 +00:00
parent d90442cedd
commit f1478738d8
1 changed files with 4 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
admin/unidata/unidata-gen.el
View file

@ -166,9 +166,8 @@ Property value is one of the following symbols:
"Unicode decomposition mapping. "Unicode decomposition mapping.
Property value is a list of characters. The first element may be Property value is a list of characters. The first element may be
one of these symbols representing compatibility formatting tag: one of these symbols representing compatibility formatting tag:
<font>, <noBreak>, <initial>, <medial>, <final>, <isolated>, <circle>, font, noBreak, initial, medial, final, isolated, circle, super,
<super>, <sub>, <vertical>, <wide>, <narrow>, <small>, <square>, <fraction>, sub, vertical, wide, narrow, small, square, fraction, compat"
<compat>"
unidata-describe-decomposition) unidata-describe-decomposition)
(decimal-digit-value (decimal-digit-value
6 unidata-gen-table-integer "uni-decimal.el" 6 unidata-gen-table-integer "uni-decimal.el"
@ -1027,11 +1026,11 @@ Property value is a character."
(setq c (aref str i)) (setq c (aref str i))
(if (= c 32) (if (= c 32)
(setq l (if (= (aref str idx) ?<) (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)) (cons (string-to-number (substring str idx i) 16) l))
idx (1+ i)))) idx (1+ i))))
(if (= (aref str idx) ?<) (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))) (setq l (cons (string-to-number (substring str idx len) 16) l)))
(nreverse l))))) (nreverse l)))))