Mercurial > emacs
changeset 4167:f037b1f51320
(Fwhile): If mocklisp, test for nonzeroness.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Mon, 19 Jul 1993 22:09:41 +0000 |
| parents | 90003380b443 |
| children | c720be6f3fae |
| files | src/eval.c |
| diffstat | 1 files changed, 2 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/src/eval.c Mon Jul 19 22:08:21 1993 +0000 +++ b/src/eval.c Mon Jul 19 22:09:41 1993 +0000 @@ -746,7 +746,8 @@ test = Fcar (args); body = Fcdr (args); - while (tem = Feval (test), !NILP (tem)) + while (tem = Feval (test), + (!EQ (Vmocklisp_arguments, Qt) ? XINT (tem) : !NILP (tem))) { QUIT; Fprogn (body);