From 5be9883c1dc766f675b5c6bcba5c4be0a2d905f0 Mon Sep 17 00:00:00 2001
From: tomo <tomo>
Date: Wed, 23 Nov 2011 14:08:10 +0000
Subject: [PATCH] Add code to convert `=>>>adobe-japan1' to
 `=>>>adobe-japan1-{0..6}'.

---
 lisp/utf-2000/maps-conf.el |   34 ++++++++++++++++++++++++++++++++++
 1 file changed, 34 insertions(+)

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