Mercurial > emacs
comparison lisp/subr.el @ 20605:95e051979faf
(sref): Defined.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Fri, 09 Jan 1998 22:13:08 +0000 |
| parents | d884af34ba47 |
| children | cd31a4ab72de |
comparison
equal
deleted
inserted
replaced
| 20604:cb1af13d913c | 20605:95e051979faf |
|---|---|
| 509 (defalias 'buffer-flush-undo 'buffer-disable-undo) | 509 (defalias 'buffer-flush-undo 'buffer-disable-undo) |
| 510 (defalias 'eval-current-buffer 'eval-buffer) | 510 (defalias 'eval-current-buffer 'eval-buffer) |
| 511 (defalias 'compiled-function-p 'byte-code-function-p) | 511 (defalias 'compiled-function-p 'byte-code-function-p) |
| 512 (defalias 'define-function 'defalias) | 512 (defalias 'define-function 'defalias) |
| 513 | 513 |
| 514 (defun sref (string byte-index) | |
| 515 (let ((byte 0) (char 0)) | |
| 516 (while (< byte byte-index) | |
| 517 (setq byte (+ byte (char-bytes (aref string byte))))) | |
| 518 (aref string char))) | |
| 519 | |
| 514 ;; Some programs still use this as a function. | 520 ;; Some programs still use this as a function. |
| 515 (defun baud-rate () | 521 (defun baud-rate () |
| 516 "Obsolete function returning the value of the `baud-rate' variable. | 522 "Obsolete function returning the value of the `baud-rate' variable. |
| 517 Please convert your programs to use the variable `baud-rate' directly." | 523 Please convert your programs to use the variable `baud-rate' directly." |
| 518 baud-rate) | 524 baud-rate) |