- 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 87c5f04..882e156 100644 (file)
--- a/lisp/utf-2000/maps-conf.el
+++ b/lisp/utf-2000/maps-conf.el
@@ -62,7 +62,7 @@
                     #x3F5D #x6E49 #x4D6F #x3C72 #x3D37
                     #x6E4C #x3B44 #x734E #x5567 #x545A
                     #x3071 #x332A #x516A #x476D #x3675
-                    #x5734))
+                    #x5734 #x552D))
      (put-char-attribute (decode-char 'japanese-jisx0208-1990 v)
                         '=gt-pj-1 v))
    nil)
@@ -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)