From b5ca6f92e7535a1432e93d07c621e47990cb9eea Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sat, 12 Apr 1997 19:15:11 +0000 Subject: [PATCH] (elp-functionp): Definitions deleted; use functionp. --- lisp/emacs-lisp/elp.el | 18 +----------------- 1 file changed, 1 insertion(+), 17 deletions(-) diff --git a/lisp/emacs-lisp/elp.el b/lisp/emacs-lisp/elp.el index 52084311124..d6bac0697a6 100644 --- a/lisp/emacs-lisp/elp.el +++ b/lisp/emacs-lisp/elp.el @@ -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))))) -- 2.39.5