comparison lisp/emacs-lisp/byte-run.el @ 61843:a158628ce6ac

(define-obsolete-function-alias): New macro.

61842:0e4683c3074a

	(setq handler (nth 1 (get function 'byte-obsolete-info)))
      (put function 'byte-compile 'byte-compile-obsolete))
    (put function 'byte-obsolete-info (list new handler when)))
  function)

(defun make-obsolete-variable (variable new &optional when)
  "Make the byte-compiler warn that VARIABLE is obsolete.
The warning will say that NEW should be used instead.
If NEW is a string, that is the `use instead' message.
If provided, WHEN should be a string indicating when the variable

61843:a158628ce6ac

	(setq handler (nth 1 (get function 'byte-obsolete-info)))
      (put function 'byte-compile 'byte-compile-obsolete))
    (put function 'byte-obsolete-info (list new handler when)))
  function)

(defmacro define-obsolete-function-alias (function new
						   &optional when docstring)
  "Set FUNCTION's function definition to NEW and warn that FUNCTION is obsolete.
If provided, WHEN should be a string indicating when FUNCTION was
first made obsolete, for example a date or a release number.  The
optional argument DOCSTRING specifies the documentation string
for FUNCTION; if DOCSTRING is omitted or nil, FUNCTION uses the
documentation string of NEW unluess it already has one."
  `(progn
     (defalias ,function ,new ,docstring)
     (make-obsolete ,function ,new ,when)))

(defun make-obsolete-variable (variable new &optional when)
  "Make the byte-compiler warn that VARIABLE is obsolete.
The warning will say that NEW should be used instead.
If NEW is a string, that is the `use instead' message.
If provided, WHEN should be a string indicating when the variable