X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Fbytecomp.el;h=0122e2692083fef49cb48220fef82c737738c652;hb=54e7eaf6571f9ee352b365bc28a5edf664fa9c60;hp=b63d8e16f882a15ddae9ae45712c5f59d5de6412;hpb=19f3d076b847b61fae1f8313d588207cc0d41ab0;p=chise%2Fxemacs-chise.git

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