[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/international/mule.el
From: |
Kenichi Handa |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/international/mule.el |
Date: |
Mon, 21 Feb 2005 07:50:08 -0500 |
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))