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)))))