diff options
Diffstat (limited to 'src/bytecode.c')
| -rw-r--r-- | src/bytecode.c | 20 |
1 files changed, 10 insertions, 10 deletions
diff --git a/src/bytecode.c b/src/bytecode.c index f888a68b7f6..7604dd82655 100644 --- a/src/bytecode.c +++ b/src/bytecode.c | |||
| @@ -1,5 +1,5 @@ | |||
| 1 | /* Execution of byte code produced by bytecomp.el. | 1 | /* Execution of byte code produced by bytecomp.el. |
| 2 | Copyright (C) 1985, 1986, 1987, 1988 Free Software Foundation, Inc. | 2 | Copyright (C) 1985, 1986, 1987, 1988, 1992 Free Software Foundation, Inc. |
| 3 | 3 | ||
| 4 | This file is part of GNU Emacs. | 4 | This file is part of GNU Emacs. |
| 5 | 5 | ||
| @@ -424,7 +424,7 @@ If the third argument is incorrect, Emacs may crash.") | |||
| 424 | 424 | ||
| 425 | case Bgotoifnil: | 425 | case Bgotoifnil: |
| 426 | op = FETCH2; | 426 | op = FETCH2; |
| 427 | if (NULL (POP)) | 427 | if (NILP (POP)) |
| 428 | { | 428 | { |
| 429 | QUIT; | 429 | QUIT; |
| 430 | pc = XSTRING (string_saved)->data + op; | 430 | pc = XSTRING (string_saved)->data + op; |
| @@ -433,7 +433,7 @@ If the third argument is incorrect, Emacs may crash.") | |||
| 433 | 433 | ||
| 434 | case Bgotoifnonnil: | 434 | case Bgotoifnonnil: |
| 435 | op = FETCH2; | 435 | op = FETCH2; |
| 436 | if (!NULL (POP)) | 436 | if (!NILP (POP)) |
| 437 | { | 437 | { |
| 438 | QUIT; | 438 | QUIT; |
| 439 | pc = XSTRING (string_saved)->data + op; | 439 | pc = XSTRING (string_saved)->data + op; |
| @@ -442,7 +442,7 @@ If the third argument is incorrect, Emacs may crash.") | |||
| 442 | 442 | ||
| 443 | case Bgotoifnilelsepop: | 443 | case Bgotoifnilelsepop: |
| 444 | op = FETCH2; | 444 | op = FETCH2; |
| 445 | if (NULL (TOP)) | 445 | if (NILP (TOP)) |
| 446 | { | 446 | { |
| 447 | QUIT; | 447 | QUIT; |
| 448 | pc = XSTRING (string_saved)->data + op; | 448 | pc = XSTRING (string_saved)->data + op; |
| @@ -452,7 +452,7 @@ If the third argument is incorrect, Emacs may crash.") | |||
| 452 | 452 | ||
| 453 | case Bgotoifnonnilelsepop: | 453 | case Bgotoifnonnilelsepop: |
| 454 | op = FETCH2; | 454 | op = FETCH2; |
| 455 | if (!NULL (TOP)) | 455 | if (!NILP (TOP)) |
| 456 | { | 456 | { |
| 457 | QUIT; | 457 | QUIT; |
| 458 | pc = XSTRING (string_saved)->data + op; | 458 | pc = XSTRING (string_saved)->data + op; |
| @@ -529,7 +529,7 @@ If the third argument is incorrect, Emacs may crash.") | |||
| 529 | { | 529 | { |
| 530 | if (CONSP (v1)) | 530 | if (CONSP (v1)) |
| 531 | v1 = XCONS (v1)->cdr; | 531 | v1 = XCONS (v1)->cdr; |
| 532 | else if (!NULL (v1)) | 532 | else if (!NILP (v1)) |
| 533 | { | 533 | { |
| 534 | immediate_quit = 0; | 534 | immediate_quit = 0; |
| 535 | v1 = wrong_type_argument (Qlistp, v1); | 535 | v1 = wrong_type_argument (Qlistp, v1); |
| @@ -553,7 +553,7 @@ If the third argument is incorrect, Emacs may crash.") | |||
| 553 | break; | 553 | break; |
| 554 | 554 | ||
| 555 | case Blistp: | 555 | case Blistp: |
| 556 | TOP = CONSP (TOP) || NULL (TOP) ? Qt : Qnil; | 556 | TOP = CONSP (TOP) || NILP (TOP) ? Qt : Qnil; |
| 557 | break; | 557 | break; |
| 558 | 558 | ||
| 559 | case Beq: | 559 | case Beq: |
| @@ -567,21 +567,21 @@ If the third argument is incorrect, Emacs may crash.") | |||
| 567 | break; | 567 | break; |
| 568 | 568 | ||
| 569 | case Bnot: | 569 | case Bnot: |
| 570 | TOP = NULL (TOP) ? Qt : Qnil; | 570 | TOP = NILP (TOP) ? Qt : Qnil; |
| 571 | break; | 571 | break; |
| 572 | 572 | ||
| 573 | case Bcar: | 573 | case Bcar: |
| 574 | v1 = TOP; | 574 | v1 = TOP; |
| 575 | docar: | 575 | docar: |
| 576 | if (CONSP (v1)) TOP = XCONS (v1)->car; | 576 | if (CONSP (v1)) TOP = XCONS (v1)->car; |
| 577 | else if (NULL (v1)) TOP = Qnil; | 577 | else if (NILP (v1)) TOP = Qnil; |
| 578 | else Fcar (wrong_type_argument (Qlistp, v1)); | 578 | else Fcar (wrong_type_argument (Qlistp, v1)); |
| 579 | break; | 579 | break; |
| 580 | 580 | ||
| 581 | case Bcdr: | 581 | case Bcdr: |
| 582 | v1 = TOP; | 582 | v1 = TOP; |
| 583 | if (CONSP (v1)) TOP = XCONS (v1)->cdr; | 583 | if (CONSP (v1)) TOP = XCONS (v1)->cdr; |
| 584 | else if (NULL (v1)) TOP = Qnil; | 584 | else if (NILP (v1)) TOP = Qnil; |
| 585 | else Fcdr (wrong_type_argument (Qlistp, v1)); | 585 | else Fcdr (wrong_type_argument (Qlistp, v1)); |
| 586 | break; | 586 | break; |
| 587 | 587 | ||