diff options
| author | Kenichi Handa | 1998-03-04 07:42:24 +0000 |
|---|---|---|
| committer | Kenichi Handa | 1998-03-04 07:42:24 +0000 |
| commit | 8b52e892668a30330140f485071b7ffba14d13aa (patch) | |
| tree | 94d67b6615f9c1d2c8a9f8d2a10c4ac7714b1f67 | |
| parent | 673c57d22a2d87b1d5fcca0065c82d8bcaf7cc1b (diff) | |
| download | emacs-8b52e892668a30330140f485071b7ffba14d13aa.tar.gz emacs-8b52e892668a30330140f485071b7ffba14d13aa.zip | |
(sref): Increase CHAR in the while loop.
| -rw-r--r-- | lisp/subr.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/subr.el b/lisp/subr.el index 2d55e682d3a..c14a048fb52 100644 --- a/lisp/subr.el +++ b/lisp/subr.el | |||
| @@ -516,7 +516,8 @@ as returned by the `event-start' and `event-end' functions." | |||
| 516 | Please convert your programs to use `aref' with character-base index." | 516 | Please convert your programs to use `aref' with character-base index." |
| 517 | (let ((byte 0) (char 0)) | 517 | (let ((byte 0) (char 0)) |
| 518 | (while (< byte byte-index) | 518 | (while (< byte byte-index) |
| 519 | (setq byte (+ byte (char-bytes (aref string byte))))) | 519 | (setq byte (+ byte (char-bytes (aref string char))) |
| 520 | char (1+ char))) | ||
| 520 | (aref string char))) | 521 | (aref string char))) |
| 521 | 522 | ||
| 522 | ;; Some programs still use this as a function. | 523 | ;; Some programs still use this as a function. |