- Use `=ucs@JP' instead of `=ucs@jp'.

(japanese-traditionalize-string): Fix typo.

diff --git a/ideo-trans.el b/ideo-trans.el
index 3385583..882319d 100644 (file)
--- a/ideo-trans.el
+++ b/ideo-trans.el
@@ -130,7 +130,7 @@
              ((setq ret (char-feature chr '=>ucs@jis))
               (decode-char '=ucs@jis ret))
              ((setq ret (char-ucs chr))
-              (decode-char '=ucs@jp ret))
+              (decode-char '=ucs@JP ret))
              (t chr))))
      string "")))
 
@@ -192,8 +192,8 @@
     (mapconcat
      (lambda (chr)
        (char-to-string
-       (cond ((setq ret (or (char-feature ret '<-simplified@JP/Jouyou)
-                            (char-feature ret '<-simplified@JP)
+       (cond ((setq ret (or (char-feature chr '<-simplified@JP/Jouyou)
+                            (char-feature chr '<-simplified@JP)
                             (char-feature chr '<-simplified)))
               (if (cdr ret)
                   (ideo-trans-select-char ret (format "%c => " chr))
@@ -203,7 +203,7 @@
                       (cond ((setq ret (char-feature chr '=>ucs@jis))
                              (decode-char '=ucs@jis ret))
                             ((setq ret (char-ucs chr))
-                             (decode-char '=ucs@jp ret))
+                             (decode-char '=ucs@JP ret))
                             (t chr)))
                 (setq ret (or (char-feature ret '<-simplified@JP/Jouyou)
                               (char-feature ret '<-simplified@JP))))
@@ -213,7 +213,7 @@
              ((setq ret (char-feature chr '=>ucs@jis))
               (decode-char '=ucs@jis ret))
              ((setq ret (char-ucs chr))
-              (decode-char '=ucs@jp ret))
+              (decode-char '=ucs@JP ret))
              (t chr))))
      string "")))