From: tomo <tomo>
Date: Sun, 10 Oct 1999 11:06:08 +0000 (+0000)
Subject: 1999-10-08   Daiki Ueno  <ueno@ueda.info.waseda.ac.jp>
X-Git-Tag: r21-2-19-utf-2000-0_9-0~28
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=520895898903628051331b6d848cdd7f92861aac;p=chise%2Fxemacs-chise.git-

1999-10-08   Daiki Ueno  <ueno@ueda.info.waseda.ac.jp>

	* bytecomp.el (byte-compile-insert-header): Fix regexp.
---

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