From 359c935a91885f3c35ac3029790dcc834a89cfd1 Mon Sep 17 00:00:00 2001
From: morioka <morioka>
Date: Fri, 16 Oct 1998 16:25:25 +0000
Subject: [PATCH] (define-obsolete-function-alias): New function.

---
 poe.el |    8 ++++++++
 1 file changed, 8 insertions(+)

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
 ;;;
-- 
1.7.10.4