Skip to content

GitLab

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

(Fdocumentation): Use NATNUMP instead of its expansion.

parent be3bfff1
Hide whitespace changes
Inline Side-by-side
Showing with 2 additions and 2 deletions
src/doc.c
View file @ 81c1bd20
......@@ -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;
......
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