From: Kenichi Handa Date: Tue, 2 Dec 2008 01:12:14 +0000 (+0000) Subject: (unidata-prop-alist): Docstring for X-Git-Tag: emacs-pretest-23.0.90~1377 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f1478738d89fcac8a2d44f947ff50d91f79c532b;p=emacs.git (unidata-prop-alist): Docstring for `decomposition' property adjusted. (unidata-split-decomposition): Don't include surrounding "<" and ">" in a symbol name. --- diff --git a/admin/unidata/unidata-gen.el b/admin/unidata/unidata-gen.el index 83c628e47ed..f0ee13f3986 100644 --- a/admin/unidata/unidata-gen.el +++ b/admin/unidata/unidata-gen.el @@ -166,9 +166,8 @@ Property value is one of the following symbols: "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" unidata-describe-decomposition) (decimal-digit-value 6 unidata-gen-table-integer "uni-decimal.el" @@ -1027,11 +1026,11 @@ Property value is a character." (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)))))