From: Karl Heuer <kwzh@gnu.org>
Date: Wed, 16 Nov 1994 01:03:33 +0000 (+0000)
Subject: (Fdocumentation): Use NATNUMP instead of its expansion.
X-Git-Tag: emacs-19.34~5897
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=81c1bd20f7a80735bca618e830a2ca248f714fa6;p=emacs.git

(Fdocumentation): Use NATNUMP instead of its expansion.
---

diff --git a/src/doc.c b/src/doc.c
index 8d84c8e7c40..a22034ae9d2 100644
--- a/src/doc.c
+++ b/src/doc.c
@@ -166,7 +166,7 @@ string is passed through `substitute-command-keys'.")
       tem = XVECTOR (fun)->contents[COMPILED_DOC_STRING];
       if (STRINGP (tem))
 	doc = tem;
-      else if (INTEGERP (tem) && XINT (tem) >= 0)
+      else if (NATNUMP (tem))
 	doc = get_doc_string (XFASTINT (tem));
       else
 	return Qnil;
@@ -189,7 +189,7 @@ subcommands.)");
 	  tem = Fcar (Fcdr (Fcdr (fun)));
 	  if (STRINGP (tem))
 	    doc = tem;
-	  else if (INTEGERP (tem) && XINT (tem) >= 0)
+	  else if (NATNUMP (tem))
 	    doc = get_doc_string (XFASTINT (tem));
 	  else
 	    return Qnil;