Mercurial > emacs
diff lisp/emacs-lisp/bytecomp.el @ 30624:277e6060b376
(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 | fa490904bee0 |
children | 4d9aa1c71f44 |
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))