Mercurial > emacs
diff lisp/subr.el @ 21066:dc937790966c
(sref): Increase CHAR in the while loop.
author | Kenichi Handa <handa@m17n.org> |
---|---|
date | Wed, 04 Mar 1998 07:42:24 +0000 |
parents | 582324329262 |
children | 7726f8d9eff0 |
line wrap: on
line diff
--- a/lisp/subr.el Wed Mar 04 07:41:41 1998 +0000 +++ b/lisp/subr.el Wed Mar 04 07:42:24 1998 +0000 @@ -516,7 +516,8 @@ 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.