X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Fbytecomp.el;h=68d0fb3ccb8490d54e34db4918402800d3dc9ce0;hb=351745c5da2cb942fe65dfc889f5f9ea3a2c3c90;hp=0122e2692083fef49cb48220fef82c737738c652;hpb=5b4300d510f709310a2dc88b55316082a4188f8a;p=chise%2Fxemacs-chise.git

diff --git a/lisp/bytecomp.el b/lisp/bytecomp.el
index 0122e26..68d0fb3 100644
--- a/lisp/bytecomp.el
+++ b/lisp/bytecomp.el
@@ -1760,7 +1760,7 @@ With argument, insert value in current buffer after the form."
 	  (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))))
+		 "\\\\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")