Mercurial > emacs
comparison lisp/emacs-lisp/edebug.el @ 5125:127a513c13b2
(edebug-functionp): Recognize compiled functions.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Tue, 23 Nov 1993 08:41:03 +0000 |
| parents | fd03ee47c0b2 |
| children | 30682388c4cf |
comparison
equal
deleted
inserted
replaced
| 5124:1aba6a79cb3d | 5125:127a513c13b2 |
|---|---|
| 325 (defun edebug-functionp (object) | 325 (defun edebug-functionp (object) |
| 326 "Returns the function named by OBJECT, or nil if it is not a function." | 326 "Returns the function named by OBJECT, or nil if it is not a function." |
| 327 (while (and (symbolp object) (fboundp object)) | 327 (while (and (symbolp object) (fboundp object)) |
| 328 (setq object (symbol-function object))) | 328 (setq object (symbol-function object))) |
| 329 (if (or (subrp object) | 329 (if (or (subrp object) |
| 330 (byte-code-function-p object) | |
| 330 (and (listp object) | 331 (and (listp object) |
| 331 (eq (car object) 'lambda) | 332 (eq (car object) 'lambda) |
| 332 (listp (car (cdr object))))) | 333 (listp (car (cdr object))))) |
| 333 object)) | 334 object)) |
| 334 | 335 |