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