From: Dave Love <fx@gnu.org>
Date: Thu, 25 May 2000 18:24:44 +0000 (+0000)
Subject: (elp-restore-function): Don't use obsolete byte-code-function-p.
X-Git-Tag: emacs-pretest-21.0.90~3701
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=36172f4965ff41428866a34456f6fb8c4ea88985;p=emacs.git

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

diff --git a/lisp/emacs-lisp/elp.el b/lisp/emacs-lisp/elp.el
index ea44a65e451..1cb4a3cf575 100644
--- a/lisp/emacs-lisp/elp.el
+++ b/lisp/emacs-lisp/elp.el
@@ -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)))))