From: tomo <tomo>
Date: Mon, 26 Jan 2004 16:57:55 +0000 (+0000)
Subject: (ideo-translate-region-into-traditional): Support
X-Git-Tag: chise-base-0_23~38
X-Git-Url: http://git.chise.org/gitweb/?p=chise%2Ftomoyo-tools.git;a=commitdiff_plain;h=932d3b73d7286d82bfb9d795e9d94a1257a9ac35;hp=865efbad8a3a4d24ea7f8ed44bce3d7188c78019

(ideo-translate-region-into-traditional): Support
`<-simplified@JP/Jouyou', `<-simplified@JP' and `<-simplified'.
---

diff --git a/ideo-trans.el b/ideo-trans.el
index 5055791..6a1a1fd 100644
--- 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