(post-read-decode-hz)

(pre-write-encode-hz): Moved to china-util.el.

diff --git a/lisp/language/chinese.el b/lisp/language/chinese.el
index 2d3688be24945ecfd8e81e6cbfbbdc03bea18afa..be28de5f317959dc8d30968ced48f7ff74783282 100644 (file)
--- a/lisp/language/chinese.el
+++ b/lisp/language/chinese.el
@@ -96,24 +96,6 @@
 (define-coding-system-alias 'hz-gb-2312 'chinese-hz)
 (define-coding-system-alias 'hz 'chinese-hz)
 
-(defun post-read-decode-hz (len)
-  (let ((pos (point))
-       (buffer-modified-p (buffer-modified-p))
-       last-coding-system-used)
-    (prog1
-       (decode-hz-region pos (+ pos len))
-      (set-buffer-modified-p buffer-modified-p))))
-
-(defun pre-write-encode-hz (from to)
-  (let ((buf (current-buffer)))
-    (set-buffer (generate-new-buffer " *temp*"))
-    (if (stringp from)
-       (insert from)
-      (insert-buffer-substring buf from to))
-    (let (last-coding-system-used)
-      (encode-hz-region 1 (point-max)))
-    nil))
-
 (set-language-info-alist
  "Chinese-GB" '((charset chinese-gb2312 chinese-sisheng)
                (coding-system chinese-iso-8bit iso-2022-cn chinese-hz)
@@ -144,7 +126,7 @@
                  (coding-priority chinese-big5 iso-2022-cn chinese-iso-8bit)
                  (input-method . "chinese-py-punct-b5")
                  (features china-util)
-                 (sample-text . "Cantonese (\e$(0GnM$\e(B,\e$(0N]0*Hd\e(B) \e$(0*/=(\e(B, \e$(0+$)p\e(B")
+                 (sample-text . "Cantonese (\e$(Gemk#\e(B,\e$(Gl]N)fc\e(B) \e$ATg3?\e(B, \e$ADc:C\e(B")
                  (documentation . "Support for Chinese Big5 character set."))
  '("Chinese"))
 
@@ -185,6 +167,7 @@
                                  chinese-iso-8bit)
                 (features china-util)
                 (input-method . "chinese-cns-quick")
+                ;; Fixme: presumably it won't accept big5 now.
                 (documentation . "\
 Support for Chinese CNS character sets.  Note that EUC-TW coding system
 accepts Big5 for input also (which is then converted to CNS)."))