From: Kenichi Handa <handa@m17n.org>
Date: Mon, 7 Aug 2000 01:47:27 +0000 (+0000)
Subject: (byte-compile-fix-header): Fix the way of checking the existence of
X-Git-Tag: emacs-pretest-21.0.90~2466
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=447a052b48491587aa54bcbc43bf0d3e2beec2a9;p=emacs.git

(byte-compile-fix-header): Fix the way of checking the existence of
any multibyte characters.
---

diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el
index 0d183fa9ec0..57cbc63a9bf 100644
--- a/lisp/emacs-lisp/bytecomp.el
+++ b/lisp/emacs-lisp/bytecomp.el
@@ -1522,10 +1522,8 @@ With argument, insert value in current buffer after the form."
 (defun byte-compile-fix-header (filename inbuffer outbuffer)
   (save-excursion
     (set-buffer outbuffer)
-    (goto-char (point-min))
     ;; See if the buffer has any multibyte characters.
-    (skip-chars-forward "\0-\377")
-    (when (not (eobp))
+    (when (< (point-max) (position-bytes (point-max)))
       (when (byte-compile-version-cond byte-compile-compatibility)
 	(error "Version-18 compatibility not valid with multibyte characters"))
       (goto-char (point-min))