comparison lisp/subr.el @ 23134:173e15236628

(sref): Make it an alias of aref. Make the byte-compiler warn that it is obsolete. (char-bytes): Make the byte-compiler warn that it is obsolete.

23133:48fb93ba8b10

(defalias 'buffer-flush-undo 'buffer-disable-undo)
(defalias 'eval-current-buffer 'eval-buffer)
(defalias 'compiled-function-p 'byte-code-function-p)
(defalias 'define-function 'defalias)

(defun sref (string byte-index)
  "Obsolete function returning a character in STRING at BYTE-INDEX.
Please convert your programs to use `aref' with character-base index."
  (let ((byte 0) (char 0))
    (while (< byte byte-index)
      (setq byte (+ byte (char-bytes (aref string char)))
	    char (1+ char)))
    (aref string char)))

;; Some programs still use this as a function.
(defun baud-rate ()
  "Obsolete function returning the value of the `baud-rate' variable.
Please convert your programs to use the variable `baud-rate' directly."

23134:173e15236628

(defalias 'buffer-flush-undo 'buffer-disable-undo)
(defalias 'eval-current-buffer 'eval-buffer)
(defalias 'compiled-function-p 'byte-code-function-p)
(defalias 'define-function 'defalias)

(defalias 'sref 'aref)
(make-obsolete 'sref 'aref)
(make-obsolete 'char-bytes "Now this function always returns 1")

;; Some programs still use this as a function.
(defun baud-rate ()
  "Obsolete function returning the value of the `baud-rate' variable.
Please convert your programs to use the variable `baud-rate' directly."