From: Richard M. Stallman <rms@gnu.org>
Date: Tue, 5 Aug 1997 20:52:56 +0000 (+0000)
Subject: (functionp): Use byte-code-function-p, not compiled-function-p.
X-Git-Tag: emacs-20.1~770
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c029995c63c52a2bed98ec34b3473c0c4356d45b;p=emacs.git

(functionp): Use byte-code-function-p, not compiled-function-p.
---

diff --git a/lisp/subr.el b/lisp/subr.el
index 1e894742cdd..308d400ee88 100644
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -1065,7 +1065,7 @@ configuration."
 
 (defun functionp (object)
   "Non-nil if OBJECT is a type of object that can be called as a function."
-  (or (subrp object) (compiled-function-p object)
+  (or (subrp object) (byte-code-function-p object)
       (eq (car-safe object) 'lambda)
       (and (symbolp object) (fboundp object))))