diff options
| author | Kenichi Handa | 1998-10-26 08:00:11 +0000 |
|---|---|---|
| committer | Kenichi Handa | 1998-10-26 08:00:11 +0000 |
| commit | d64a0ef70903234ec196cdc7fbe6fceabcd6a953 (patch) | |
| tree | 7003d7004cf10f8be6d21efc74f27802665bc92d /lisp/language | |
| parent | 3de546452ed0a7c2167dfe7fef210880b65a98de (diff) | |
| download | emacs-d64a0ef70903234ec196cdc7fbe6fceabcd6a953.tar.gz emacs-d64a0ef70903234ec196cdc7fbe6fceabcd6a953.zip | |
(pre-write-encode-hz): Cancel previous
change, use generate-new-buffer instead of get-buffer-create.
Diffstat (limited to 'lisp/language')
| -rw-r--r-- | lisp/language/chinese.el | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/lisp/language/chinese.el b/lisp/language/chinese.el index bf50795a691..c51f955840e 100644 --- a/lisp/language/chinese.el +++ b/lisp/language/chinese.el | |||
| @@ -101,12 +101,12 @@ | |||
| 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 | (with-temp-buffer | 104 | (set-buffer (generate-new-buffer " *temp*")) |
| 105 | (if (stringp from) | 105 | (if (stringp from) |
| 106 | (insert from) | 106 | (insert from) |
| 107 | (insert-buffer-substring buf from to)) | 107 | (insert-buffer-substring buf from to)) |
| 108 | (let (last-coding-system-used) | 108 | (let (last-coding-system-used) |
| 109 | (encode-hz-region 1 (point-max)))) | 109 | (encode-hz-region 1 (point-max))) |
| 110 | nil)) | 110 | nil)) |
| 111 | 111 | ||
| 112 | (set-language-info-alist | 112 | (set-language-info-alist |