Say that while returns nil

* src/eval.c (Fwhile): Say that while always returns nil
(bug#22006).

diff --git a/src/eval.c b/src/eval.c
index 2e5074360d5b9414e6a861dff4a3cefce057f1ac..cb9eb37b56967f233ab9b4afbc9ee131336c327c 100644 (file)
--- a/src/eval.c
+++ b/src/eval.c
@@ -991,6 +991,9 @@ DEFUN ("while", Fwhile, Swhile, 1, UNEVALLED, 0,
        doc: /* If TEST yields non-nil, eval BODY... and repeat.
 The order of execution is thus TEST, BODY, TEST, BODY and so on
 until TEST returns nil.
+
+The value of a `while' form is always nil.
+
 usage: (while TEST BODY...)  */)
   (Lisp_Object args)
 {