From 5b3b7da1684ac556f659c9187bab0d9f803b9097 Mon Sep 17 00:00:00 2001
From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Thu, 1 Aug 2019 19:27:19 +0200
Subject: [PATCH] Say that while returns nil

* src/eval.c (Fwhile): Say that while always returns nil
(bug#22006).
---
 src/eval.c | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/src/eval.c b/src/eval.c
index 2e5074360d5..cb9eb37b569 100644
--- 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)
 {
-- 
2.39.2