Commit 66353e86 authored by Kenichi Handa's avatar Kenichi Handa
Browse files

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

parent c9c0f7cf
...@@ -512,6 +512,8 @@ as returned by the `event-start' and `event-end' functions." ...@@ -512,6 +512,8 @@ as returned by the `event-start' and `event-end' functions."
(defalias 'define-function 'defalias) (defalias 'define-function 'defalias)
(defun sref (string byte-index) (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)) (let ((byte 0) (char 0))
(while (< byte byte-index) (while (< byte byte-index)
(setq byte (+ byte (char-bytes (aref string byte))))) (setq byte (+ byte (char-bytes (aref string byte)))))
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment