mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-03-01 03:11:09 -08:00
Code Issues Projects Releases Wiki Activity

(Fdocumentation): Use NATNUMP instead of its expansion.

Browse source
This commit is contained in:
Karl Heuer 1994-11-16 01:03:33 +00:00
parent be3bfff196
commit 81c1bd20f7
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/doc.c
View file

@ -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;