mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-18 18:05:07 +00:00
Code Issues Releases Activity

Replaced NULL with N

Browse Source
This commit is contained in:
Joseph Arceneaux 1992-08-06 03:25:57 +00:00
parent e6d38bed7e
commit 921a89355e
1 changed files with 10 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
src/bytecode.c
View File

@ -1,5 +1,5 @@
/* Execution of byte code produced by bytecomp.el.
Copyright (C) 1985, 1986, 1987, 1988 Free Software Foundation, Inc.
Copyright (C) 1985, 1986, 1987, 1988, 1992 Free Software Foundation, Inc.
This file is part of GNU Emacs.
@ -424,7 +424,7 @@ If the third argument is incorrect, Emacs may crash.")
case Bgotoifnil:
op = FETCH2;
if (NULL (POP))
if (NILP (POP))
{
QUIT;
pc = XSTRING (string_saved)->data + op;
@ -433,7 +433,7 @@ If the third argument is incorrect, Emacs may crash.")
case Bgotoifnonnil:
op = FETCH2;
if (!NULL (POP))
if (!NILP (POP))
{
QUIT;
pc = XSTRING (string_saved)->data + op;
@ -442,7 +442,7 @@ If the third argument is incorrect, Emacs may crash.")
case Bgotoifnilelsepop:
op = FETCH2;
if (NULL (TOP))
if (NILP (TOP))
{
QUIT;
pc = XSTRING (string_saved)->data + op;
@ -452,7 +452,7 @@ If the third argument is incorrect, Emacs may crash.")
case Bgotoifnonnilelsepop:
op = FETCH2;
if (!NULL (TOP))
if (!NILP (TOP))
{
QUIT;
pc = XSTRING (string_saved)->data + op;
@ -529,7 +529,7 @@ If the third argument is incorrect, Emacs may crash.")
{
if (CONSP (v1))
v1 = XCONS (v1)->cdr;
else if (!NULL (v1))
else if (!NILP (v1))
{
immediate_quit = 0;
v1 = wrong_type_argument (Qlistp, v1);
@ -553,7 +553,7 @@ If the third argument is incorrect, Emacs may crash.")
break;
case Blistp:
TOP = CONSP (TOP) || NULL (TOP) ? Qt : Qnil;
TOP = CONSP (TOP) || NILP (TOP) ? Qt : Qnil;
break;
case Beq:
@ -567,21 +567,21 @@ If the third argument is incorrect, Emacs may crash.")
break;
case Bnot:
TOP = NULL (TOP) ? Qt : Qnil;
TOP = NILP (TOP) ? Qt : Qnil;
break;
case Bcar:
v1 = TOP;
docar:
if (CONSP (v1)) TOP = XCONS (v1)->car;
else if (NULL (v1)) TOP = Qnil;
else if (NILP (v1)) TOP = Qnil;
else Fcar (wrong_type_argument (Qlistp, v1));
break;
case Bcdr:
v1 = TOP;
if (CONSP (v1)) TOP = XCONS (v1)->cdr;
else if (NULL (v1)) TOP = Qnil;
else if (NILP (v1)) TOP = Qnil;
else Fcdr (wrong_type_argument (Qlistp, v1));
break;