# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1036710090 0
# Node ID e23f9344f37ddcf1d3ccba57ae3f35a47992bcae
# Parent  eeded772a8a22e793b586ff8d853cdf04ed4eb60
(function-p-func): Avoid `xemacs-p'.

diff -r eeded772a8a2 -r e23f9344f37d lisp/eshell/esh-cmd.el
--- a/lisp/eshell/esh-cmd.el	Thu Nov 07 23:00:32 2002 +0000
+++ b/lisp/eshell/esh-cmd.el	Thu Nov 07 23:01:30 2002 +0000
@@ -1060,7 +1060,7 @@
   object)
 
 (defconst function-p-func
-  (if (eshell-under-xemacs-p)
+  (if (fboundp 'compiled-function-p)
       'compiled-function-p
     'byte-code-function-p))