mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-03-06 05:52:32 -08:00
Code Issues Projects Releases Wiki Activity

(sref): Defined.

Browse source
This commit is contained in:
Richard M. Stallman 1998-01-09 22:13:08 +00:00
parent 7bd9ba7033
commit 6bb762b324
1 changed files with 6 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lisp/subr.el
View file

@ -511,6 +511,12 @@ as returned by the `event-start' and `event-end' functions."
(defalias 'compiled-function-p 'byte-code-function-p)
(defalias 'define-function 'defalias)
(defun sref (string byte-index)
(let ((byte 0) (char 0))
(while (< byte byte-index)
(setq byte (+ byte (char-bytes (aref string byte)))))
(aref string char)))
;; Some programs still use this as a function.
(defun baud-rate ()
"Obsolete function returning the value of the `baud-rate' variable.