From: Robert Pluim <rpluim@gmail.com>
Date: Tue, 4 Jul 2023 15:44:43 +0000 (+0200)
Subject: Improve natnump shortdoc
X-Git-Tag: emacs-29.1-rc1~69
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c3fefb2b3ae098068bc03cc305b9181746d72751;p=emacs.git

Improve natnump shortdoc

* lisp/emacs-lisp/shortdoc.el (number): Make it clear that zero
satisfies 'natnump'.  Move 'natnump' next to 'cl-plusp' to highlight
the difference between them.
---

diff --git a/lisp/emacs-lisp/shortdoc.el b/lisp/emacs-lisp/shortdoc.el
index 871233097a7..f5cbb2e645f 100644
--- a/lisp/emacs-lisp/shortdoc.el
+++ b/lisp/emacs-lisp/shortdoc.el
@@ -1247,6 +1247,10 @@ A FUNC form can have any number of `:no-eval' (or `:no-value'),
    :eval (>= 3 2 2 1))
   (zerop
    :eval (zerop 0))
+  (natnump
+   :eval (natnump -1)
+   :eval (natnump 0)
+   :eval (natnump 23))
   (cl-plusp
    :eval (cl-plusp 0)
    :eval (cl-plusp 1))
@@ -1257,9 +1261,6 @@ A FUNC form can have any number of `:no-eval' (or `:no-value'),
    :eval (cl-oddp 3))
   (cl-evenp
    :eval (cl-evenp 6))
-  (natnump
-   :eval (natnump -1)
-   :eval (natnump 23))
   (bignump
    :eval (bignump 4)
    :eval (bignump (expt 2 90)))