diff options
| author | Karoly Lorentey <lorentey@elte.hu> | 2005-05-02 14:38:00 +0000 |
|---|---|---|
| committer | Karoly Lorentey <lorentey@elte.hu> | 2005-05-02 14:38:00 +0000 |
| commit | 09a1444abb2494d0db3d71e4c942f5210786b619 (patch) | |
| tree | 0fa0b9bb0d41ed6dea6cffc07681d931431704e7 /lisp/emacs-lisp/byte-run.el | |
| parent | 030cd69ff13d95f439ca0d13a03215fc45959789 (diff) | |
| parent | b21eabf6259ac5761aac04e68692384f2d23a5c3 (diff) | |
| download | emacs-09a1444abb2494d0db3d71e4c942f5210786b619.tar.gz emacs-09a1444abb2494d0db3d71e4c942f5210786b619.tar.bz2 emacs-09a1444abb2494d0db3d71e4c942f5210786b619.zip | |
Merged from miles@gnu.org--gnu-2005 (patch 281-285)
Patches applied:
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-281
Update from CVS
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-282
Update from CVS
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-283
Update from CVS
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-284
Update from CVS
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-285
Update from CVS
git-archimport-id: lorentey@elte.hu--2004/emacs--multi-tty--0--patch-336
Diffstat (limited to 'lisp/emacs-lisp/byte-run.el')
| -rw-r--r-- | lisp/emacs-lisp/byte-run.el | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/lisp/emacs-lisp/byte-run.el b/lisp/emacs-lisp/byte-run.el index ab7259b667f..5c92f247a05 100644 --- a/lisp/emacs-lisp/byte-run.el +++ b/lisp/emacs-lisp/byte-run.el @@ -114,6 +114,18 @@ was first made obsolete, for example a date or a release number." (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. |