From: tomo <tomo>
Date: Wed, 23 Nov 2011 14:08:10 +0000 (+0000)
Subject: Add code to convert `=>>>adobe-japan1' to `=>>>adobe-japan1-{0..6}'.
X-Git-Tag: r21-4-22-chise-0_25-11^20~172
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=5be9883c1dc766f675b5c6bcba5c4be0a2d905f0;p=chise%2Fxemacs-chise.git-

Add code to convert `=>>>adobe-japan1' to `=>>>adobe-japan1-{0..6}'.
---

diff --git a/lisp/utf-2000/maps-conf.el b/lisp/utf-2000/maps-conf.el
index 72e3810..388b83e 100644
--- a/lisp/utf-2000/maps-conf.el
+++ b/lisp/utf-2000/maps-conf.el
@@ -215,3 +215,37 @@
      (put-char-attribute c '=>jis-x0213-1 v))
    nil)
  '=>jis-x0208)
+
+(map-char-attribute
+ (lambda (c v)
+   (cond
+    ((<= v 8283)
+     (remove-char-attribute c '=>>>adobe-japan1)
+     (put-char-attribute c '=>>>adobe-japan1-0 v)
+     )
+    ((<= v 8358)
+     (remove-char-attribute c '=>>>adobe-japan1)
+     (put-char-attribute c '=>>>adobe-japan1-1 v)
+     )
+    ((<= v 8719)
+     (remove-char-attribute c '=>>>adobe-japan1)
+     (put-char-attribute c '=>>>adobe-japan1-2 v)
+     )
+    ((<= v 9353)
+     (remove-char-attribute c '=>>>adobe-japan1)
+     (put-char-attribute c '=>>>adobe-japan1-3 v)
+     )
+    ((<= v 15443)
+     (remove-char-attribute c '=>>>adobe-japan1)
+     (put-char-attribute c '=>>>adobe-japan1-4 v)
+     )
+    ((<= v 20316)
+     (remove-char-attribute c '=>>>adobe-japan1)
+     (put-char-attribute c '=>>>adobe-japan1-5 v)
+     )
+    ((<= v 23057)
+     (remove-char-attribute c '=>>>adobe-japan1)
+     (put-char-attribute c '=>>>adobe-japan1-6 v)
+     ))
+   nil)
+ '=>>>adobe-japan1)