# HG changeset patch
# User Nick Roberts <nickrob@snap.net.nz>
# Date 1114506236 0
# Node ID a158628ce6ac28dbcbf1c66e0cdc3d548802e337
# Parent  0e4683c3074a2c20f7879250d01d1b907ec0c488
(define-obsolete-function-alias): New macro.

diff -r 0e4683c3074a -r a158628ce6ac lisp/emacs-lisp/byte-run.el
--- a/lisp/emacs-lisp/byte-run.el	Tue Apr 26 05:56:22 2005 +0000
+++ b/lisp/emacs-lisp/byte-run.el	Tue Apr 26 09:03:56 2005 +0000
@@ -114,6 +114,18 @@
     (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.