Mercurial > emacs
changeset 20939:fea711fa5768
* subr.el (sref): Doc-string added.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Fri, 20 Feb 1998 01:43:38 +0000 |
| parents | 12e635300b44 |
| children | 7c906916c8ae |
| files | lisp/subr.el |
| diffstat | 1 files changed, 2 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/subr.el Fri Feb 20 01:40:47 1998 +0000 +++ b/lisp/subr.el Fri Feb 20 01:43:38 1998 +0000 @@ -512,6 +512,8 @@ (defalias 'define-function 'defalias) (defun sref (string byte-index) + "Obsolete function returning a characater in STRING at BYTE-INDEX. +Please convert your programs to use `aref' witha character-base index." (let ((byte 0) (char 0)) (while (< byte byte-index) (setq byte (+ byte (char-bytes (aref string byte)))))