# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 909388811 0
# Node ID 77c9675127145e9be43ef96ba4583960a07ba424
# Parent  d180b9c69e4a8a3bc4bf5b95e4931ddce93580f2
(pre-write-encode-hz): Cancel previous
change, use generate-new-buffer instead of get-buffer-create.

diff -r d180b9c69e4a -r 77c967512714 lisp/language/chinese.el
--- a/lisp/language/chinese.el	Mon Oct 26 08:00:11 1998 +0000
+++ b/lisp/language/chinese.el	Mon Oct 26 08:00:11 1998 +0000
@@ -101,12 +101,12 @@
 
 (defun pre-write-encode-hz (from to)
   (let ((buf (current-buffer)))
-    (with-temp-buffer
-      (if (stringp from)
-	  (insert from)
-	(insert-buffer-substring buf from to))
-      (let (last-coding-system-used)
-	(encode-hz-region 1 (point-max))))
+    (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