From 1944b2e73b268c651c7c7025891cb009dff0d9b2 Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Wed, 21 Oct 1998 11:50:56 +0000 Subject: [PATCH] (pre-write-encode-hz): Use with-temp-buffer. --- lisp/language/chinese.el | 16 +++++++--------- 1 file changed, 7 insertions(+), 9 deletions(-) diff --git a/lisp/language/chinese.el b/lisp/language/chinese.el index 851e4faa903..bf50795a691 100644 --- a/lisp/language/chinese.el +++ b/lisp/language/chinese.el @@ -100,15 +100,13 @@ (set-buffer-modified-p buffer-modified-p)))) (defun pre-write-encode-hz (from to) - (let ((buf (current-buffer)) - (work (get-buffer-create " *pre-write-encoding-work*"))) - (set-buffer work) - (erase-buffer) - (if (stringp from) - (insert from) - (insert-buffer-substring buf from to)) - (let (last-coding-system-used) - (encode-hz-region 1 (point-max))) + (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)))) nil)) (set-language-info-alist -- 2.39.2