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.

1 files changed, 4 insertions, 4 deletions

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))