Mercurial > emacs

changeset 9958:25a7e3557fd3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(Fdocumentation): Use NATNUMP instead of its expansion.
author Karl Heuer <kwzh@gnu.org>
date Wed, 16 Nov 1994 01:03:33 +0000
parents 940847846909
children c942c7e6ebbd
files src/doc.c
diffstat 1 files changed, 2 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/src/doc.c	Wed Nov 16 01:00:10 1994 +0000
+++ b/src/doc.c	Wed Nov 16 01:03:33 1994 +0000
@@ -166,7 +166,7 @@
       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 @@
 	  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;