From c029995c63c52a2bed98ec34b3473c0c4356d45b Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Tue, 5 Aug 1997 20:52:56 +0000 Subject: [PATCH] (functionp): Use byte-code-function-p, not compiled-function-p. --- lisp/subr.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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)))) -- 2.39.2