Mercurial > emacs

changeset 30624:277e6060b376

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(byte-compile-fix-header): Fix the way of checking the existence of any multibyte characters.
author Kenichi Handa <handa@m17n.org>
date Mon, 07 Aug 2000 01:47:27 +0000
parents 0d3b3df25bcb
children 13ae6fb12020
files lisp/emacs-lisp/bytecomp.el
diffstat 1 files changed, 1 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/emacs-lisp/bytecomp.el	Mon Aug 07 01:46:03 2000 +0000
+++ b/lisp/emacs-lisp/bytecomp.el	Mon Aug 07 01:47:27 2000 +0000
@@ -1522,10 +1522,8 @@
 (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))