diff options
| author | Richard M. Stallman | 1993-07-19 22:09:41 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1993-07-19 22:09:41 +0000 |
| commit | e3c24a741ec1705f3d53489737c653fd245b2370 (patch) | |
| tree | e9db283ddd32d164903c868841cf2153c51586cf /src | |
| parent | b3f77ca2b8ab0ac6cb0f3077860742893a5aca51 (diff) | |
| download | emacs-e3c24a741ec1705f3d53489737c653fd245b2370.tar.gz emacs-e3c24a741ec1705f3d53489737c653fd245b2370.zip | |
(Fwhile): If mocklisp, test for nonzeroness.
Diffstat (limited to 'src')
| -rw-r--r-- | src/eval.c | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/eval.c b/src/eval.c index 897e543adf4..7a3a923e0da 100644 --- a/src/eval.c +++ b/src/eval.c | |||
| @@ -746,7 +746,8 @@ until TEST returns nil.") | |||
| 746 | 746 | ||
| 747 | test = Fcar (args); | 747 | test = Fcar (args); |
| 748 | body = Fcdr (args); | 748 | body = Fcdr (args); |
| 749 | while (tem = Feval (test), !NILP (tem)) | 749 | while (tem = Feval (test), |
| 750 | (!EQ (Vmocklisp_arguments, Qt) ? XINT (tem) : !NILP (tem))) | ||
| 750 | { | 751 | { |
| 751 | QUIT; | 752 | QUIT; |
| 752 | Fprogn (body); | 753 | Fprogn (body); |