mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-08 23:40:24 -08:00
Code Issues Projects Releases Wiki Activity

(elp-functionp): Definitions deleted; use functionp.

Browse source
This commit is contained in:
Richard M. Stallman 1997-04-12 19:15:11 +00:00
parent 9b267ebada
commit b5ca6f92e7
1 changed files with 1 additions and 17 deletions
Download patch file Download diff file Expand all files Collapse all files

18
lisp/emacs-lisp/elp.el
View file

@ -206,22 +206,6 @@ This variable is set by the master function.")
(defvar elp-master nil
"Master function symbol.")
;; Emacs/XEmacs compatibility.
(if (fboundp 'functionp)
(defalias 'elp-functionp 'functionp)
;; Lift XEmacs 19.13's functionp from subr.el
(defun elp-functionp (obj)
"Returns t if OBJ is a function, nil otherwise."
(cond
((symbolp obj) (fboundp obj))
((subrp obj))
((compiled-function-p obj))
((consp obj)
(if (eq (car obj) 'lambda) (listp (car (cdr obj)))))
(t nil))))
;;;###autoload
(defun elp-instrument-function (funsym)
"Instrument FUNSYM for profiling.
@ -321,7 +305,7 @@ Argument FUNSYM is the symbol of a defined function."
;; we don't want to destroy the new definition. can it ever be
;; the case that a lisp function can be compiled instrumented?
(and info
(elp-functionp funsym)
(functionp funsym)
(not (compiled-function-p (symbol-function funsym)))
(assq 'elp-wrapper (symbol-function funsym))
(fset funsym (aref info 2)))))