# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 887939018 0
# Node ID fea711fa5768c4dbc5c824c0fdb81d1ed2925993
# Parent  12e635300b44f95987b2fd15e6d7bbfe8ee4d9ec
	* subr.el (sref): Doc-string added.

diff -r 12e635300b44 -r fea711fa5768 lisp/subr.el
--- 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)))))