diff options
| author | Kenichi Handa <handa@m17n.org> | 2000-08-07 01:47:27 +0000 |
|---|---|---|
| committer | Kenichi Handa <handa@m17n.org> | 2000-08-07 01:47:27 +0000 |
| commit | 447a052b48491587aa54bcbc43bf0d3e2beec2a9 (patch) | |
| tree | 8732c40af77504e95efd68e1c43e70b09e836235 /lisp/emacs-lisp/bytecomp.el | |
| parent | 24d55b8f9636fe98f3983edeb0a1ccb86669ef2a (diff) | |
| download | emacs-447a052b48491587aa54bcbc43bf0d3e2beec2a9.tar.gz emacs-447a052b48491587aa54bcbc43bf0d3e2beec2a9.tar.bz2 emacs-447a052b48491587aa54bcbc43bf0d3e2beec2a9.zip | |
(byte-compile-fix-header): Fix the way of checking the existence of
any multibyte characters.
Diffstat (limited to 'lisp/emacs-lisp/bytecomp.el')
| -rw-r--r-- | lisp/emacs-lisp/bytecomp.el | 4 |
1 files changed, 1 insertions, 3 deletions
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)) |