Mercurial > emacs
comparison lisp/subr.el @ 19176:d8eb24685152
(functionp): Use byte-code-function-p, not compiled-function-p.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Tue, 05 Aug 1997 20:52:56 +0000 |
| parents | 3d80c899a15d |
| children | f5fd22f3462c |
comparison
equal
deleted
inserted
replaced
| 19175:3d80c899a15d | 19176:d8eb24685152 |
|---|---|
| 1063 (and (consp object) | 1063 (and (consp object) |
| 1064 (eq (car object) 'frame-configuration))) | 1064 (eq (car object) 'frame-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 |
| 1072 ;; now in fns.c | 1072 ;; now in fns.c |
| 1073 ;(defun nth (n list) | 1073 ;(defun nth (n list) |