From 5b4300d510f709310a2dc88b55316082a4188f8a Mon Sep 17 00:00:00 2001
From: tomo <tomo>
Date: Sun, 3 Oct 1999 14:30:27 +0000
Subject: [PATCH] (byte-compile-insert-header): Don't use `raw-text' if \uXXXX
 is found.

---
 lisp/bytecomp.el |    5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

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")
-- 
1.7.10.4