# HG changeset patch
# User Jim Blandy <jimb@redhat.com>
# Date 728011791 0
# Node ID 7e3322619e46a2362f9f9fa88368a01bc5c1a83c
# Parent  5c2bdeb13f68eb46cade5788b3e4222928416124
	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.

diff -r 5c2bdeb13f68 -r 7e3322619e46 lisp/emacs-lisp/byte-opt.el
--- a/lisp/emacs-lisp/byte-opt.el	Tue Jan 26 01:26:58 1993 +0000
+++ b/lisp/emacs-lisp/byte-opt.el	Tue Jan 26 01:29:51 1993 +0000
@@ -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 @@
 ;; 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))