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 |