(ideo-translate-region-into-traditional): Support

[chise/tomoyo-tools.git] / ideo-trans.el

diff --git a/ideo-trans.el b/ideo-trans.el
index 5055791..6a1a1fd 100644 (file)
--- a/ideo-trans.el
+++ b/ideo-trans.el
@@ -1,6 +1,6 @@
 ;;; ideo-trans.el --- Translation utility for Ideographic Strings
 
-;; Copyright (C) 2003 MORIOKA Tomohiko
+;; Copyright (C) 2003,2004 MORIOKA Tomohiko
 
 ;; Author: MORIOKA Tomohiko <tomo@kanji.zinbun.kyoto-u.ac.jp>
 ;; Keywords: Ideographs, Character Database, Chaon, CHISE
@@ -56,9 +56,12 @@
        (while (and (skip-chars-forward "\x00-\xFF")
                    (not (eobp)))
          (setq chr (char-after))
-         (if (setq ret (or (get-char-attribute chr '<-simplified@jp-jouyou)
+         (if (setq ret (or (get-char-attribute chr '<-simplified@JP/Jouyou)
+                           (get-char-attribute chr '<-simplified@jp-jouyou)
+                           (get-char-attribute chr '<-simplified@JP)
                            (get-char-attribute chr '<-simplified@jp)
-                           (get-char-attribute chr '<-jp-simplified)))
+                           (get-char-attribute chr '<-jp-simplified)
+                           (get-char-attribute chr '<-simplified)))
              (progn
                (if (cdr ret)
                    (progn