# HG changeset patch
# User Eli Zaretskii <eliz@gnu.org>
# Date 1024309507 0
# Node ID 32f0cf84df571180a38974cbee0467b325513f86
# Parent  eabc9c7b9cdc32106c593a14ec3c22c92645defd
(ctext-pre-write-conversion): Fix the values of FROM and TO if we create
a new buffer.

diff -r eabc9c7b9cdc -r 32f0cf84df57 lisp/international/mule.el
--- a/lisp/international/mule.el	Mon Jun 17 10:18:24 2002 +0000
+++ b/lisp/international/mule.el	Mon Jun 17 10:25:07 2002 +0000
@@ -1367,6 +1367,8 @@
       (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 @@
 	   (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.