Fix comment.

[gnu-emacs] / lisp / language / china-util.el

diff --git a/lisp/language/china-util.el b/lisp/language/china-util.el
index e70afa9b908248d386b0e1307d626383955cd347..8a0a83d834a25a54db86cbf035f9cdcc79317fab 100644 (file)
--- a/lisp/language/china-util.el
+++ b/lisp/language/china-util.el
@@ -22,31 +22,9 @@
 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 ;; Boston, MA 02111-1307, USA.
 
-;;; Code:
-
-;;;###autoload
-(defun setup-chinese-gb-environment ()
-  "Setup multilingual environment (MULE) for Chinese GB2312 users."
-  (interactive)
-  (setup-english-environment)
-  (set-language-environment-coding-systems "Chinese-GB")
-  (setq default-input-method  "chinese-py-punct"))
-
-;;;###autoload
-(defun setup-chinese-big5-environment ()
-  "Setup multilingual environment (MULE) for Chinese Big5 users."
-  (interactive)
-  (setup-english-environment)
-  (set-language-environment-coding-systems "Chinese-BIG5")
-  (setq default-input-method "chinese-py-punct-b5"))
+;;; Commentary:
 
-;;;###autoload
-(defun setup-chinese-cns-environment ()
-  "Setup multilingual environment (MULE) for Chinese CNS11643 family users."
-  (interactive)
-  (setup-english-environment)
-  (set-language-environment-coding-systems "Chinese-CNS")
-  (setq default-input-method "chinese-quick-cns"))
+;;; Code:
 
 ;; Hz/ZW encoding stuffs
 
@@ -159,8 +137,7 @@ Return the length of resulting text."
       ;; Chinese GB2312 -> "~{...~}"
       (goto-char (point-min))
       (if (re-search-forward "\\cc" nil t)
-         (let ((enable-multibyte-characters nil)
-               pos)
+         (let (pos)
            (goto-char (setq pos (match-beginning 0)))
            (encode-coding-region pos (point-max) 'iso-2022-7bit)
            (goto-char pos)