mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-02-01 20:06:00 +00:00
Code Issues Releases Activity

* subr.el (sref): Doc-string added.

Browse Source
This commit is contained in:
Kenichi Handa 1998-02-20 01:43:38 +00:00
parent c9c0f7cf48
commit 66353e86d1
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lisp/subr.el
View File

@ -512,6 +512,8 @@ as returned by the `event-start' and `event-end' functions."
(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)))))