From dae20b344a25d5017e0b4e799243742bfaeb5618 Mon Sep 17 00:00:00 2001 From: tomo Date: Thu, 3 Apr 2003 11:07:52 +0000 Subject: [PATCH] (byte-compile-insert-header): In XEmacs CHISE, check \uXXXX for every cases. --- lisp/bytecomp.el | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) 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) -- 1.7.10.4