diff options
| author | Richard M. Stallman | 1997-08-05 20:52:56 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1997-08-05 20:52:56 +0000 |
| commit | c029995c63c52a2bed98ec34b3473c0c4356d45b (patch) | |
| tree | 2e16812ec2fe8af80f9d3d1d0ac3ce8b3b34ea84 | |
| parent | bf896a1b80d62bd67b79e8612c0600b93e77abbd (diff) | |
| download | emacs-c029995c63c52a2bed98ec34b3473c0c4356d45b.tar.gz emacs-c029995c63c52a2bed98ec34b3473c0c4356d45b.zip | |
(functionp): Use byte-code-function-p, not compiled-function-p.
| -rw-r--r-- | lisp/subr.el | 2 |
1 files changed, 1 insertions, 1 deletions
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." | |||
| 1065 | 1065 | ||
| 1066 | (defun functionp (object) | 1066 | (defun functionp (object) |
| 1067 | "Non-nil if OBJECT is a type of object that can be called as a function." | 1067 | "Non-nil if OBJECT is a type of object that can be called as a function." |
| 1068 | (or (subrp object) (compiled-function-p object) | 1068 | (or (subrp object) (byte-code-function-p object) |
| 1069 | (eq (car-safe object) 'lambda) | 1069 | (eq (car-safe object) 'lambda) |
| 1070 | (and (symbolp object) (fboundp object)))) | 1070 | (and (symbolp object) (fboundp object)))) |
| 1071 | 1071 | ||