procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

compiled-function-p has been renamed to byte-code-function-p.

Browse source 
* 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.
This commit is contained in:
Jim Blandy 1993-01-26 01:29:51 +00:00
parent d81fd0bf01
commit 96d699f33e
1 changed files with 4 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

8
lisp/emacs-lisp/byte-opt.el
View file

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