Mercurial > emacs
changeset 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 | fde58556c616 |
| children | 926174c7283a |
| files | lisp/subr.el |
| diffstat | 1 files changed, 2 insertions(+), 1 deletions(-) [+] |
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.