- Use `=>jis-x0208' instead of `<=>jis-x0208'.

[chise/xemacs-chise.git-] / lisp / utf-2000 / maps-conf.el

diff --git a/lisp/utf-2000/maps-conf.el b/lisp/utf-2000/maps-conf.el
index ae6d1ff..882e156 100644 (file)
--- a/lisp/utf-2000/maps-conf.el
+++ b/lisp/utf-2000/maps-conf.el
@@ -61,7 +61,8 @@
                     #x353D #x4324 #x475B #x6E47 #x4371
                     #x3F5D #x6E49 #x4D6F #x3C72 #x3D37
                     #x6E4C #x3B44 #x734E #x5567 #x545A
-                    #x3071 #x332A))
+                    #x3071 #x332A #x516A #x476D #x3675
+                    #x5734 #x552D))
      (put-char-attribute (decode-char 'japanese-jisx0208-1990 v)
                         '=gt-pj-1 v))
    nil)
@@ -168,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)