diff options
| author | Kenichi Handa | 1998-02-20 01:43:38 +0000 |
|---|---|---|
| committer | Kenichi Handa | 1998-02-20 01:43:38 +0000 |
| commit | 66353e86d188456e6dde85d64d168737a66b094e (patch) | |
| tree | c30068a412327c2f2650ed1f427972260fc80db7 | |
| parent | c9c0f7cf48021bcbaf899525ba0d0fe1556aae8d (diff) | |
| download | emacs-66353e86d188456e6dde85d64d168737a66b094e.tar.gz emacs-66353e86d188456e6dde85d64d168737a66b094e.zip | |
* subr.el (sref): Doc-string added.
| -rw-r--r-- | lisp/subr.el | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/lisp/subr.el b/lisp/subr.el index a3d6554e354..90588a90046 100644 --- a/lisp/subr.el +++ b/lisp/subr.el | |||
| @@ -512,6 +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. | ||
| 516 | Please convert your programs to use `aref' witha character-base index." | ||
| 515 | (let ((byte 0) (char 0)) | 517 | (let ((byte 0) (char 0)) |
| 516 | (while (< byte byte-index) | 518 | (while (< byte byte-index) |
| 517 | (setq byte (+ byte (char-bytes (aref string byte))))) | 519 | (setq byte (+ byte (char-bytes (aref string byte))))) |