mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

(byte-compile-fix-header): Fix the way of checking the existence of

Browse source 
any multibyte characters.
This commit is contained in:
Kenichi Handa 2000-08-07 01:47:27 +00:00
parent 24d55b8f96
commit 447a052b48
1 changed files with 1 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lisp/emacs-lisp/bytecomp.el
View file

@ -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))