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