From 7859eea10ff00bb38f32c778c562255412ddd1c3 Mon Sep 17 00:00:00 2001
From: tomo <tomo>
Date: Mon, 6 Sep 2004 20:23:38 +0000
Subject: [PATCH] (chinese-simplify-string): Renamed from
 `ideo-translate-string-into-simplified-chinese'.
 (ideo-translate-string-into-simplified-chinese): New
 obsolete alias for `chinese-simplify-string'.
 (japanese-simplify-string): Renamed from
 `ideo-translate-string-into-simplified-japanese'.
 (ideo-translate-string-into-simplified-japanese): New
 obsolete alias for `japanese-simplify-string'.
 (chinese-traditionalize-string): Renamed from
 `ideo-translate-chinese-string-into-traditional'.
 (ideo-translate-chinese-string-into-traditional): New
 obsolete alias for `chinese-traditionalize-string'.
 (japanese-traditionalize-string): Renamed from
 `ideo-translate-japanese-string-into-traditional'.
 (ideo-translate-japanese-string-into-traditional): New
 obsolete alias for `japanese-traditionalize-string'.
 (japanese-traditionalize-region): Renamed from
 `ideo-translate-japanese-region-into-traditional'.
 (ideo-translate-japanese-region-into-traditional): New
 obsolete alias for `japanese-traditionalize-region'.

---
 ideo-trans.el |   40 +++++++++++++++++++++++++++++++++-------
 1 file changed, 33 insertions(+), 7 deletions(-)

diff --git a/ideo-trans.el b/ideo-trans.el
index ec8de15..3edfdec 100644
--- a/ideo-trans.el
+++ b/ideo-trans.el
@@ -87,7 +87,7 @@
 	     string ""))
 
 ;;;###autoload
-(defun ideo-translate-string-into-simplified-chinese (string)
+(defun chinese-simplify-string (string)
   "Simplify Chinese traditional characters in STRING."
   (let (uchr ret)
     (mapconcat
@@ -108,11 +108,16 @@
      string "")))
 
 ;;;###autoload
+(define-obsolete-function-alias
+  'ideo-translate-string-into-simplified-chinese
+  'chinese-simplify-string)
+
+;;;###autoload
 (define-obsolete-function-alias 'ideo-trans-simplify-chinese-string
-  'ideo-translate-string-into-simplified-chinese)
+  'chinese-simplify-string)
 
 ;;;###autoload
-(defun ideo-translate-string-into-simplified-japanese (string)
+(defun japanese-simplify-string (string)
   "Simplify traditional Kanji characters in STRING."
   (let (ret)
     (mapconcat
@@ -129,6 +134,12 @@
 	      (t chr))))
      string "")))
 
+;;;###autoload
+(define-obsolete-function-alias
+  'ideo-translate-string-into-simplified-japanese
+  'japanese-simplify-string)
+
+
 (defun ideo-trans-select-char (chars &optional prefix)
   (let ((i 0)
 	prompt ret)
@@ -146,7 +157,7 @@
     (nth (1- ret) chars)))
 
 ;;;###autoload
-(defun ideo-translate-chinese-string-into-traditional (string)
+(defun chinese-traditionalize-string (string)
   "Convert simplified Chinese characters in STRING to traditional characters."
   (let (ret)
     (mapconcat
@@ -170,7 +181,12 @@
      string "")))
 
 ;;;###autoload
-(defun ideo-translate-japanese-string-into-traditional (string)
+(define-obsolete-function-alias
+  'ideo-translate-chinese-string-into-traditional
+  'chinese-traditionalize-string)
+
+;;;###autoload
+(defun japanese-traditionalize-string (string)
   "Convert simplified Kanji in STRING into traditional characters."
   (let (ret)
     (mapconcat
@@ -200,7 +216,12 @@
      string "")))
 		      
 ;;;###autoload
-(defun ideo-translate-japanese-region-into-traditional (start end)
+(define-obsolete-function-alias
+  'ideo-translate-japanese-string-into-traditional
+  'japanese-traditionalize-string)
+
+;;;###autoload
+(defun japanese-traditionalize-region (start end)
   (interactive "r")
   (save-excursion
     (save-restriction
@@ -229,8 +250,13 @@
 
 ;;;###autoload
 (define-obsolete-function-alias
+  'ideo-translate-japanese-region-into-traditional
+  'japanese-traditionalize-region)
+
+;;;###autoload
+(define-obsolete-function-alias
   'ideo-translate-region-into-traditional
-  'ideo-translate-japanese-region-into-traditional)
+  'japanese-traditionalize-region)
 
 
 ;;; @ End.
-- 
1.7.10.4