From: tomo <tomo>
Date: Wed, 26 Aug 2009 23:08:50 +0000 (+0000)
Subject: Add `<=>jis-x0213-1' for each object of `<=>jis-x0208'.
X-Git-Tag: r21-4-22-chise-0_24-jis-x0213-rep-diffs^20~311
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=247ed98669e93c099a060821235ae3e1c07f6717;p=chise%2Fxemacs-chise.git.1

Add `<=>jis-x0213-1' for each object of `<=>jis-x0208'.
---

diff --git a/lisp/utf-2000/maps-conf.el b/lisp/utf-2000/maps-conf.el
index 87c5f04..9795ea7 100644
--- a/lisp/utf-2000/maps-conf.el
+++ b/lisp/utf-2000/maps-conf.el
@@ -169,3 +169,10 @@
        (put-char-attribute c '=jis-x0213-1 v))
      nil)
    ccs))
+
+(map-char-attribute
+ (lambda (c v)
+   (unless (eq (encode-char c '<=>jis-x0213-1) v)
+     (put-char-attribute c '<=>jis-x0213-1 v))
+   nil)
+ '<=>jis-x0208)