From 81c1bd20f7a80735bca618e830a2ca248f714fa6 Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Wed, 16 Nov 1994 01:03:33 +0000 Subject: [PATCH] (Fdocumentation): Use NATNUMP instead of its expansion. --- src/doc.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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; -- 2.39.5