(elp-restore-function): Don't use obsolete byte-code-function-p.

This commit is contained in:
Dave Love 2000-05-25 18:24:44 +00:00
parent 020c9ca57d
commit 36172f4965

View file

@ -313,7 +313,7 @@ Argument FUNSYM is the symbol of a defined function."
;; the case that a lisp function can be compiled instrumented?
(and info
(functionp funsym)
(not (compiled-function-p (symbol-function funsym)))
(not (byte-code-function-p (symbol-function funsym)))
(assq 'elp-wrapper (symbol-function funsym))
(fset funsym (aref info 2)))))