diff options
| author | Dave Love | 2000-05-25 18:24:44 +0000 |
|---|---|---|
| committer | Dave Love | 2000-05-25 18:24:44 +0000 |
| commit | 36172f4965ff41428866a34456f6fb8c4ea88985 (patch) | |
| tree | 0ff0604ede3526165aea7310a698433bc4338407 | |
| parent | 020c9ca57d463b5d9744f11dc424b3777a6d5e2a (diff) | |
| download | emacs-36172f4965ff41428866a34456f6fb8c4ea88985.tar.gz emacs-36172f4965ff41428866a34456f6fb8c4ea88985.zip | |
(elp-restore-function): Don't use obsolete byte-code-function-p.
| -rw-r--r-- | lisp/emacs-lisp/elp.el | 2 |
1 files changed, 1 insertions, 1 deletions
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." | |||
| 313 | ;; the case that a lisp function can be compiled instrumented? | 313 | ;; the case that a lisp function can be compiled instrumented? |
| 314 | (and info | 314 | (and info |
| 315 | (functionp funsym) | 315 | (functionp funsym) |
| 316 | (not (compiled-function-p (symbol-function funsym))) | 316 | (not (byte-code-function-p (symbol-function funsym))) |
| 317 | (assq 'elp-wrapper (symbol-function funsym)) | 317 | (assq 'elp-wrapper (symbol-function funsym)) |
| 318 | (fset funsym (aref info 2))))) | 318 | (fset funsym (aref info 2))))) |
| 319 | 319 | ||