From 96d699f33e3617f87c58c4841d8686e29250413c Mon Sep 17 00:00:00 2001 From: Jim Blandy Date: Tue, 26 Jan 1993 01:29:51 +0000 Subject: compiled-function-p has been renamed to byte-code-function-p. * subr.el: Define compiled-function-p as an alias for it. * bytecomp.el: Register compiled-function-p as obsolete. * bytecomp.el, byte-opt.el, disass.el, help.el, map-ynp.el: Change uses. --- lisp/emacs-lisp/byte-opt.el | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'lisp/emacs-lisp') diff --git a/lisp/emacs-lisp/byte-opt.el b/lisp/emacs-lisp/byte-opt.el index d4789564f5f..2443d967658 100644 --- a/lisp/emacs-lisp/byte-opt.el +++ b/lisp/emacs-lisp/byte-opt.el @@ -220,7 +220,7 @@ (error "file \"%s\" didn't define \"%s\"" (nth 1 fn) name)) (if (symbolp fn) (byte-compile-inline-expand (cons fn (cdr form))) - (if (compiled-function-p fn) + (if (byte-code-function-p fn) (cons (list 'lambda (aref fn 0) (list 'byte-code (aref fn 1) (aref fn 2) (aref fn 3))) (cdr form)) @@ -233,7 +233,7 @@ (or name (setq name "anonymous lambda")) (let ((lambda (car form)) (values (cdr form))) - (if (compiled-function-p lambda) + (if (byte-code-function-p lambda) (setq lambda (list 'lambda (aref lambda 0) (list 'byte-code (aref lambda 1) (aref lambda 2) (aref lambda 3))))) @@ -316,7 +316,7 @@ (and (nth 1 form) (not for-effect) form)) - ((or (compiled-function-p fn) + ((or (byte-code-function-p fn) (eq 'lambda (car-safe fn))) (byte-compile-unfold-lambda form)) ((memq fn '(let let*)) @@ -1721,7 +1721,7 @@ may generate incorrect code.") ;; itself, compile some of its most used recursive functions (at load time). ;; (eval-when-compile - (or (compiled-function-p (symbol-function 'byte-optimize-form)) + (or (byte-code-function-p (symbol-function 'byte-optimize-form)) (assq 'byte-code (symbol-function 'byte-optimize-form)) (let ((byte-optimize nil) (byte-compile-warnings nil)) -- cgit v1.2.3