(Fdocumentation): Use NATNUMP instead of its expansion.

diff --git a/src/doc.c b/src/doc.c
index 8d84c8e7c4052b255b25729ab9fa5cd542bc8afd..a22034ae9d2f657965cb4d383bebdca527ef9554 100644 (file)
--- 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;