mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-08 04:30:45 -08:00
Code Issues Projects Releases Wiki Activity

Simplify FUNCTIONP implementation

Browse source 
* src/bytecode.c (exec_byte_code):
* src/image.c (parse_image_spec):
Prefer FUNCTIONP (x) to !NILP (Ffunctionp (x)).
* src/eval.c (FUNCTIONP): Move here ...
* src/lisp.h: ... from here.  No longer inline, as that
bloats the text and does not help speed (at least on my platform).
(functionp): Remove this name, since callers use FUNCTIONP.
This commit is contained in:
Paul Eggert 2016-12-06 21:38:32 -08:00 • committed by Paul Eggert
parent 2a3420d942
commit f0870da2bb
6 changed files with 36 additions and 45 deletions
Download patch file Download diff file Expand all files Collapse all files

3
src/bytecode.c
View file

@ -809,8 +809,7 @@ exec_byte_code (Lisp_Object bytestr, Lisp_Object vector, Lisp_Object maxdepth,
{
Lisp_Object handler = POP;
/* Support for a function here is new in 24.4. */
record_unwind_protect ((NILP (Ffunctionp (handler))
? unwind_body : bcall0),
record_unwind_protect (FUNCTIONP (handler) ? bcall0 : unwind_body,
handler);
NEXT;
}