From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Thu, 7 Nov 2002 23:01:30 +0000 (+0000)
Subject: (function-p-func): Avoid `xemacs-p'.
X-Git-Tag: ttn-vms-21-2-B4~12548
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=38c1b27aa551d06387d89a4ce14b67bc9aba0ac3;p=emacs.git

(function-p-func): Avoid `xemacs-p'.
---

diff --git a/lisp/eshell/esh-cmd.el b/lisp/eshell/esh-cmd.el
index 04a01f1234e..624777bf8c4 100644
--- a/lisp/eshell/esh-cmd.el
+++ b/lisp/eshell/esh-cmd.el
@@ -1060,7 +1060,7 @@ at the moment are:
   object)
 
 (defconst function-p-func
-  (if (eshell-under-xemacs-p)
+  (if (fboundp 'compiled-function-p)
       'compiled-function-p
     'byte-code-function-p))