From 0bd078a73eec3dc3ba5035664a769101ee6528d3 Mon Sep 17 00:00:00 2001
From: tomo <tomo>
Date: Fri, 4 Sep 2009 18:55:14 +0000
Subject: [PATCH] (chinese-simplify-string): Use `char-feature' instead of
 `get-char-attribute' to retrieve `=>ucs*'; fix typo.
 (japanese-simplify-string): Support non-JIS variants.
 (chinese-traditionalize-string): Add new optional argument
 `selector'; (japanese-traditionalize-string): Likewise.

---
 ideo-trans.el |   29 +++++++++++++++++++++++------
 1 file changed, 23 insertions(+), 6 deletions(-)

diff --git a/ideo-trans.el b/ideo-trans.el
index 882319d..3e9689a 100644
--- a/ideo-trans.el
+++ b/ideo-trans.el
@@ -97,8 +97,8 @@
 		    (setq chr (decode-char '=ucs@gb ret)))
 		   ((setq ret (char-ucs chr))
 		    (setq chr (decode-char '=ucs@gb ret))
-		    (if (setq ret (get-char-attribute chr '=>ucs*))
-			(decode-char '=ucs@gb ret)
+		    (if (setq ret (char-feature chr '=>ucs*))
+			(setq chr (decode-char '=ucs@gb ret))
 		      chr))
 		   (t chr)))
        (char-to-string
@@ -122,6 +122,15 @@
   (let (ret)
     (mapconcat
      (lambda (chr)
+       (setq uchr
+	     (cond ((setq ret (char-feature chr '=>ucs@jis))
+		    (setq chr (decode-char '=ucs@jis ret)))
+		   ((setq ret (char-ucs chr))
+		    (setq chr (decode-char '=ucs@jis ret))
+		    (if (setq ret (char-feature chr '=>ucs*))
+			(setq chr (decode-char '=ucs@jis ret))
+		      chr))
+		   (t chr)))
        (setq ret (or (char-feature chr '->simplified@JP/Jouyou)
 		     (char-feature chr '->simplified@JP)
 		     (char-feature chr '->simplified)))
@@ -157,15 +166,19 @@
     (nth (1- ret) chars)))
 
 ;;;###autoload
-(defun chinese-traditionalize-string (string)
+(defun chinese-traditionalize-string (string &optional selector)
   "Convert simplified Chinese characters in STRING to traditional characters."
+  (unless selector
+    (setq selector
+	  (lambda (chars)
+	    (ideo-trans-select-char chars (format "%c => " chr)))))
   (let (ret)
     (mapconcat
      (lambda (chr)
        (char-to-string
 	(cond ((car (char-feature chr '<-simplified))
 	       (if (cdr ret)
-		   (ideo-trans-select-char ret (format "%c => " chr))
+		   (funcall selector ret)
 		 (car ret)))
 	      ((progn
 		 (setq ret
@@ -186,8 +199,12 @@
   'chinese-traditionalize-string)
 
 ;;;###autoload
-(defun japanese-traditionalize-string (string)
+(defun japanese-traditionalize-string (string &optional selector)
   "Convert simplified Kanji in STRING into traditional characters."
+  (unless selector
+    (setq selector
+	  (lambda (chars)
+	    (ideo-trans-select-char chars (format "%c => " chr)))))
   (let (ret)
     (mapconcat
      (lambda (chr)
@@ -196,7 +213,7 @@
 			     (char-feature chr '<-simplified@JP)
 			     (char-feature chr '<-simplified)))
 	       (if (cdr ret)
-		   (ideo-trans-select-char ret (format "%c => " chr))
+		   (funcall selector ret)
 		 (car ret)))
 	      ((progn
 		 (setq ret
-- 
1.7.10.4