From 66353e86d188456e6dde85d64d168737a66b094e Mon Sep 17 00:00:00 2001
From: Kenichi Handa <handa@m17n.org>
Date: Fri, 20 Feb 1998 01:43:38 +0000
Subject: [PATCH] * subr.el (sref): Doc-string added.

---
 lisp/subr.el | 2 ++
 1 file changed, 2 insertions(+)

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."
 (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)))))
-- 
2.39.5