mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-05 11:45:45 +00:00
Code Issues Releases Activity

(ctext-pre-write-conversion): Always use

Browse Source 
" *code-converting-work*" buffer for work.
This commit is contained in:
Kenichi Handa 2005-02-21 12:53:33 +00:00
parent d782c34829
commit 002dc23966
2 changed files with 16 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lisp/ChangeLog
View File

@ -1,5 +1,8 @@
2005-02-21 Kenichi Handa <handa@m17n.org>
* international/mule.el (ctext-pre-write-conversion): Always use
" *code-converting-work*" buffer for work.
* textmodes/ispell.el (ispell-dictionary-alist): Fix docstring.
2005-02-20 Thien-Thi Nguyen <ttn@gnu.org>

24
lisp/international/mule.el
View File

@ -1467,18 +1467,20 @@ If FROM is a string, or if the current buffer is not the one set up for us
by encode-coding-string, generate a new temp buffer, insert the
text, and convert it in the temporary buffer. Otherwise, convert in-place."
(save-match-data
;; Setup a working buffer if necessary.
(cond ((stringp from)
(let ((buf (current-buffer)))
(set-buffer (generate-new-buffer " *temp"))
(let ((workbuf (get-buffer-create " *code-conversion-work*")))
;; Setup a working buffer if necessary.
(cond ((stringp from)
(set-buffer workbuf)
(erase-buffer)
(set-buffer-multibyte (multibyte-string-p from))
(insert from)))
((not (string= (buffer-name) " *code-converting-work*"))
(let ((buf (current-buffer))
(multibyte enable-multibyte-characters))
(set-buffer (generate-new-buffer " *temp"))
(set-buffer-multibyte multibyte)
(insert-buffer-substring buf from to))))
(insert from))
((not (eq (current-buffer) workbuf))
(let ((buf (current-buffer))
(multibyte enable-multibyte-characters))
(set-buffer workbuf)
(erase-buffer)
(set-buffer-multibyte multibyte)
(insert-buffer-substring buf from to)))))
;; Now we can encode the whole buffer.
(let ((encoding-table (ctext-non-standard-encodings-table))