diff options
| author | Kenichi Handa | 1998-03-03 01:35:39 +0000 |
|---|---|---|
| committer | Kenichi Handa | 1998-03-03 01:35:39 +0000 |
| commit | 70701902816a3f05aaca7e9acb5aa65e337aa122 (patch) | |
| tree | 93311c94c219ad1a4182e9446924de8f23a76c3f | |
| parent | b4e187e2ce2f6ae9715c89691061e924b15daa9e (diff) | |
| download | emacs-70701902816a3f05aaca7e9acb5aa65e337aa122.tar.gz emacs-70701902816a3f05aaca7e9acb5aa65e337aa122.zip | |
(sref): Typo in doc-string fixed.
| -rw-r--r-- | lisp/subr.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/subr.el b/lisp/subr.el index 7f763633dfc..2d55e682d3a 100644 --- a/lisp/subr.el +++ b/lisp/subr.el | |||
| @@ -512,8 +512,8 @@ as returned by the `event-start' and `event-end' functions." | |||
| 512 | (defalias 'define-function 'defalias) | 512 | (defalias 'define-function 'defalias) |
| 513 | 513 | ||
| 514 | (defun sref (string byte-index) | 514 | (defun sref (string byte-index) |
| 515 | "Obsolete function returning a characater in STRING at BYTE-INDEX. | 515 | "Obsolete function returning a character in STRING at BYTE-INDEX. |
| 516 | Please convert your programs to use `aref' witha 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 byte))))) |