From: morioka <morioka>
Date: Fri, 16 Oct 1998 16:25:25 +0000 (+0000)
Subject: (define-obsolete-function-alias): New function.
X-Git-Tag: apel-9_4~5
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=359c935a91885f3c35ac3029790dcc834a89cfd1;p=elisp%2Fapel.git

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

diff --git a/poe.el b/poe.el
index 90b9d66..090b679 100644
--- a/poe.el
+++ b/poe.el
@@ -375,6 +375,14 @@ This function does not move point. [XEmacs emulating function]"
       (and (consp obj)(eq (car obj) 'lambda))
       ))
 
+(defsubst-maybe define-obsolete-function-alias (oldfun newfun)
+  "Define OLDFUN as an obsolete alias for function NEWFUN.
+This makes calling OLDFUN equivalent to calling NEWFUN and marks OLDFUN
+as obsolete. [XEmacs emulating function]"
+  (define-function oldfun newfun)
+  (make-obsolete oldfun newfun)
+  )
+
 
 ;;; @ end
 ;;;