diff options
| author | Kenichi Handa | 1998-10-21 11:50:56 +0000 |
|---|---|---|
| committer | Kenichi Handa | 1998-10-21 11:50:56 +0000 |
| commit | 1944b2e73b268c651c7c7025891cb009dff0d9b2 (patch) | |
| tree | 88f8757f4deb4e810dd926d8f02d4698b278a9d6 | |
| parent | 166488a59ac921edfeef1efd24824f55b7f0c210 (diff) | |
| download | emacs-1944b2e73b268c651c7c7025891cb009dff0d9b2.tar.gz emacs-1944b2e73b268c651c7c7025891cb009dff0d9b2.zip | |
(pre-write-encode-hz): Use with-temp-buffer.
| -rw-r--r-- | lisp/language/chinese.el | 16 |
1 files 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 @@ | |||
| 100 | (set-buffer-modified-p buffer-modified-p)))) | 100 | (set-buffer-modified-p buffer-modified-p)))) |
| 101 | 101 | ||
| 102 | (defun pre-write-encode-hz (from to) | 102 | (defun pre-write-encode-hz (from to) |
| 103 | (let ((buf (current-buffer)) | 103 | (let ((buf (current-buffer))) |
| 104 | (work (get-buffer-create " *pre-write-encoding-work*"))) | 104 | (with-temp-buffer |
| 105 | (set-buffer work) | 105 | (if (stringp from) |
| 106 | (erase-buffer) | 106 | (insert from) |
| 107 | (if (stringp from) | 107 | (insert-buffer-substring buf from to)) |
| 108 | (insert from) | 108 | (let (last-coding-system-used) |
| 109 | (insert-buffer-substring buf from to)) | 109 | (encode-hz-region 1 (point-max)))) |
| 110 | (let (last-coding-system-used) | ||
| 111 | (encode-hz-region 1 (point-max))) | ||
| 112 | nil)) | 110 | nil)) |
| 113 | 111 | ||
| 114 | (set-language-info-alist | 112 | (set-language-info-alist |