(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'.

diff --git a/ideo-trans.el b/ideo-trans.el
index ec8de15..3edfdec 100644 (file)
--- 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.