From: Eli Zaretskii <eliz@gnu.org>
Date: Mon, 17 Jun 2002 10:25:32 +0000 (+0000)
Subject: (ctext-pre-write-conversion): Fix the values of FROM and TO if we create
X-Git-Tag: ttn-vms-21-2-B4~14590
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c74fe809e9dafb0ce15d8a31333de61534011862;p=emacs.git

(ctext-pre-write-conversion): Fix the values of FROM and TO if we create
a new buffer.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e402b87d793..31e9e826f4f 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2002-06-17  Eli Zaretskii <eliz@is.elta.co.il>
+
+	* international/mule.el (ctext-pre-write-conversion): Fix the values
+	of FROM and TO if we create a new buffer.
+
 2002-06-17  John Paul Wallington  <jpw@shootybangbang.com>
 
 	* comint.el (comint-insert-clicked-input): Insert clicked-on
diff --git a/lisp/international/mule.el b/lisp/international/mule.el
index f9ec6cdfc49..574c7213dc9 100644
--- a/lisp/international/mule.el
+++ b/lisp/international/mule.el
@@ -1367,6 +1367,8 @@ charsets or coding systems.")
       (set-buffer-modified-p modified-p)
       (- (point-max) (point-min)))))
 
+;; If you add charsets here, be sure to modify the regexp used by
+;; ctext-pre-write-conversion to look up non-standard charsets.
 (defvar non-standard-designations-alist
   '(("$(0" . (big5 "big5-0" 2))
     ("$(1" . (big5 "big5-0" 2))
@@ -1408,7 +1410,8 @@ text, and convert it in the temporary buffer.  Otherwise, convert in-place."
 	   (buffer-disable-undo)
 	   (if (stringp from)
 	       (insert from)
-	     (insert-buffer-substring buf from to)))))
+	     (insert-buffer-substring buf from to))
+	   (setq from (point-min) to (point-max)))))
   (encode-coding-region from to 'ctext-no-compositions)
   ;; Replace ISO-2022 charset designations with extended segments, for
   ;; those charsets that are not part of the official X registry.