procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(sref): Increase CHAR in the while loop.

Browse source
This commit is contained in:
Kenichi Handa 1998-03-04 07:42:24 +00:00
parent 673c57d22a
commit 8b52e89266
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
lisp/subr.el
View file

@ -516,7 +516,8 @@ as returned by the `event-start' and `event-end' functions."
Please convert your programs to use `aref' with character-base index."
(let ((byte 0) (char 0))
(while (< byte byte-index)
(setq byte (+ byte (char-bytes (aref string byte)))))
(setq byte (+ byte (char-bytes (aref string char)))
char (1+ char)))
(aref string char)))
;; Some programs still use this as a function.