mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-04-27 16:51:06 -07:00
Code Issues Projects Releases Wiki Activity

(pre-write-encode-hz): Use with-temp-buffer.

Browse source
This commit is contained in:
Kenichi Handa 1998-10-21 11:50:56 +00:00
parent 166488a59a
commit 1944b2e73b
1 changed files with 7 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

16
lisp/language/chinese.el
View file

@ -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