# HG changeset patch # User Joseph Arceneaux # Date 713071557 0 # Node ID 6bebb86e63c21dee2232eebfd6b0bb0f80f5ad75 # Parent e95ecc378efae70aa6bfa429da2a47a5cb55b8df Replaced NULL with N diff -r e95ecc378efa -r 6bebb86e63c2 src/bytecode.c --- a/src/bytecode.c Thu Aug 06 03:25:23 1992 +0000 +++ b/src/bytecode.c Thu Aug 06 03:25:57 1992 +0000 @@ -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 @@ case Bgotoifnil: op = FETCH2; - if (NULL (POP)) + if (NILP (POP)) { QUIT; pc = XSTRING (string_saved)->data + op; @@ -433,7 +433,7 @@ case Bgotoifnonnil: op = FETCH2; - if (!NULL (POP)) + if (!NILP (POP)) { QUIT; pc = XSTRING (string_saved)->data + op; @@ -442,7 +442,7 @@ case Bgotoifnilelsepop: op = FETCH2; - if (NULL (TOP)) + if (NILP (TOP)) { QUIT; pc = XSTRING (string_saved)->data + op; @@ -452,7 +452,7 @@ case Bgotoifnonnilelsepop: op = FETCH2; - if (!NULL (TOP)) + if (!NILP (TOP)) { QUIT; pc = XSTRING (string_saved)->data + op; @@ -529,7 +529,7 @@ { 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 @@ break; case Blistp: - TOP = CONSP (TOP) || NULL (TOP) ? Qt : Qnil; + TOP = CONSP (TOP) || NILP (TOP) ? Qt : Qnil; break; case Beq: @@ -567,21 +567,21 @@ 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;