[Emacs-diffs] Changes to emacs/lisp/international/mule.el

[Kenichi Handa]

Index: emacs/lisp/international/mule.el
diff -c emacs/lisp/international/mule.el:1.214 
emacs/lisp/international/mule.el:1.215
*** emacs/lisp/international/mule.el:1.214      Wed Feb  9 15:50:37 2005
--- emacs/lisp/international/mule.el    Mon Feb 21 12:50:06 2005
***************
*** 1467,1484 ****
  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"))
             (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))))
  
      ;; Now we can encode the whole buffer.
      (let ((encoding-table (ctext-non-standard-encodings-table))
--- 1467,1486 ----
  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
!     (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 (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))