diff options
Diffstat (limited to 'lisp')
| -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. |