(char_encode_iso2022): Keep designated charsets if one of them

[chise/xemacs-chise.git] / lisp / bytecomp.el

diff --git a/lisp/bytecomp.el b/lisp/bytecomp.el
index 1ce8d27..b63d8e1 100644 (file)
--- a/lisp/bytecomp.el
+++ b/lisp/bytecomp.el
@@ -1759,8 +1759,14 @@ With argument, insert value in current buffer after the form."
                                      (char-to-string 255)))
          (eq (point) (point-max)))
        (setq buffer-file-coding-system 'raw-text)
-      (insert "(require 'mule)\n;;;###coding system: escape-quoted\n")
-      (setq buffer-file-coding-system 'escape-quoted)
+      (cond ((featurep 'utf-2000)
+            (insert "(require 'mule)\n;;;###coding system: utf-8\n")
+            (setq buffer-file-coding-system 'utf-8)
+            )
+           (t
+            (insert "(require 'mule)\n;;;###coding system: escape-quoted\n")
+            (setq buffer-file-coding-system 'escape-quoted)
+            ))
       ;; #### Lazy loading not yet implemented for MULE files
       ;; mrb - Fix this someday.
       (save-excursion