From: tomo <tomo>
Date: Thu, 17 Jun 1999 04:59:51 +0000 (+0000)
Subject: (byte-compile-insert-header): Use utf-8 as coding-system if `utf-2000'
X-Git-Tag: r21-2-15-utf2000-0_2-1~1
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=19f3d076b847b61fae1f8313d588207cc0d41ab0;p=chise%2Fxemacs-chise.git-

(byte-compile-insert-header): Use utf-8 as coding-system if `utf-2000'
is provided.
---

diff --git a/lisp/bytecomp.el b/lisp/bytecomp.el
index 1ce8d27..b63d8e1 100644
--- 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