Commit 81c1bd20 authored by Karl Heuer's avatar Karl Heuer
Browse files

(Fdocumentation): Use NATNUMP instead of its expansion.

parent be3bfff1
...@@ -166,7 +166,7 @@ string is passed through `substitute-command-keys'.") ...@@ -166,7 +166,7 @@ string is passed through `substitute-command-keys'.")
tem = XVECTOR (fun)->contents[COMPILED_DOC_STRING]; tem = XVECTOR (fun)->contents[COMPILED_DOC_STRING];
if (STRINGP (tem)) if (STRINGP (tem))
doc = tem; doc = tem;
else if (INTEGERP (tem) && XINT (tem) >= 0) else if (NATNUMP (tem))
doc = get_doc_string (XFASTINT (tem)); doc = get_doc_string (XFASTINT (tem));
else else
return Qnil; return Qnil;
...@@ -189,7 +189,7 @@ subcommands.)"); ...@@ -189,7 +189,7 @@ subcommands.)");
tem = Fcar (Fcdr (Fcdr (fun))); tem = Fcar (Fcdr (Fcdr (fun)));
if (STRINGP (tem)) if (STRINGP (tem))
doc = tem; doc = tem;
else if (INTEGERP (tem) && XINT (tem) >= 0) else if (NATNUMP (tem))
doc = get_doc_string (XFASTINT (tem)); doc = get_doc_string (XFASTINT (tem));
else else
return Qnil; return Qnil;
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment