From: tomo <tomo>
Date: Sun, 3 Oct 1999 14:30:27 +0000 (+0000)
Subject: (byte-compile-insert-header): Don't use `raw-text' if \uXXXX is found.
X-Git-Tag: r21-2-19-utf-2000-0_8-2~17
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=5b4300d510f709310a2dc88b55316082a4188f8a;p=chise%2Fxemacs-chise.git-

(byte-compile-insert-header): Don't use `raw-text' if \uXXXX is found.
---

diff --git a/lisp/bytecomp.el b/lisp/bytecomp.el
index b63d8e1..0122e26 100644
--- a/lisp/bytecomp.el
+++ b/lisp/bytecomp.el
@@ -1757,7 +1757,10 @@ 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)
       (cond ((featurep 'utf-2000)
 	     (insert "(require 'mule)\n;;;###coding system: utf-8\n")