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

" *code-converting-work*" buffer for work.

2 files changed, 16 insertions, 11 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 57c64a66da2..b2113b8d0f4 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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>
diff --git a/lisp/international/mule.el b/lisp/international/mule.el
index 5ba6f1d69e4..9a5646217ec 100644
--- a/lisp/international/mule.el
+++ b/lisp/international/mule.el
@@ -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))