From: tomo <tomo>
Date: Thu, 3 Apr 2003 11:07:52 +0000 (+0000)
Subject: (byte-compile-insert-header): In XEmacs CHISE, check \uXXXX for every
X-Git-Tag: r21-4-11-chise-0_20-5^2~11
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=dae20b344a25d5017e0b4e799243742bfaeb5618;p=chise%2Fxemacs-chise.git.1

(byte-compile-insert-header): In XEmacs CHISE, check \uXXXX for every
cases.
---

diff --git a/lisp/bytecomp.el b/lisp/bytecomp.el
index 56eb532..cf3e917 100644
--- a/lisp/bytecomp.el
+++ b/lisp/bytecomp.el
@@ -1822,7 +1822,11 @@ With argument, insert value in current buffer after the form."
 		      (if (and (featurep 'utf-2000)
 			       (re-search-backward "\\\\u[0-9A-Fa-f]+" nil t))
 			  'utf-8-mcs-unix
-			'binary))))
+			'binary)
+		    (when (featurep 'utf-2000)
+		      (goto-char (point-min))
+		      (if (re-search-forward "\\\\u[0-9A-Fa-f]+" nil t)
+			  'utf-8-mcs-unix)))))
 	(setq ces 'binary))
       (if (eq ces 'binary)
 	  (setq buffer-file-coding-system 'binary)