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

(Fdocumentation, Fdocumentation_property): When the doc

Browse source 
data is 0, just return nil.
This commit is contained in:
Stefan Monnier 2002-04-03 16:28:30 +00:00
parent da00bb1869
commit 68d8a8e1fb
1 changed files with 6 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

9
src/doc.c
View file

@ -441,7 +441,9 @@ string is passed through `substitute-command-keys'. */)
/* If DOC is 0, it's typically because of a dumped file missing
from the DOC file (bug in src/Makefile.in). */
if (INTEGERP (doc) && !EQ (tem, make_number (0)) || CONSP (doc))
if (EQ (tem, make_number (0))
tem = Qnil;
if (INTEGERP (doc) || CONSP (doc))
{
Lisp_Object tem;
tem = get_doc_string (doc, 0, 0);
@ -485,8 +487,9 @@ aren't strings. */)
documentation_property:
tem = Fget (symbol, prop);
if (INTEGERP (tem) && !EQ (tem, make_number (0))
|| (CONSP (tem) && INTEGERP (XCDR (tem))))
if (EQ (tem, make_number (0))
tem = Qnil;
if (INTEGERP (tem) || (CONSP (tem) && INTEGERP (XCDR (tem))))
{
Lisp_Object doc = tem;
tem = get_doc_string (tem, 0, 0);