X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Fbytecomp.el;h=0122e2692083fef49cb48220fef82c737738c652;hb=d5e4e63d5665c99c6ae51a2a7e8dd6783400fd90;hp=1ce8d2714d4f71ddb40b390ded22c49700fd0e38;hpb=cbb40ed4dbe8dad2c432475e1cc91742886f1ef4;p=chise%2Fxemacs-chise.git

diff --git a/lisp/bytecomp.el b/lisp/bytecomp.el
index 1ce8d27..0122e26 100644
--- a/lisp/bytecomp.el
+++ b/lisp/bytecomp.el
@@ -1757,10 +1757,19 @@ With argument, insert value in current buffer after the form."
 	  ;; mrb- There must be a better way than skip-chars-forward
 	  (skip-chars-forward (concat (char-to-string 0) "-"
 				      (char-to-string 255)))
-	  (eq (point) (point-max)))
+	  (and (eq (point) (point-max))
+	       (not
+		(re-search-backward
+		 "\\u[0-9A-Fa-f][0-9A-Fa-f][0-9A-Fa-f][0-9A-Fa-f]" nil t))))
 	(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