Mercurial > emacs
diff src/doc.c @ 44381:15b5489c78d6
(Fdocumentation, Fdocumentation_property): When the doc
data is 0, just return nil.
author | Stefan Monnier <monnier@iro.umontreal.ca> |
---|---|
date | Wed, 03 Apr 2002 16:28:30 +0000 |
parents | 412b4760216b |
children | e44eec58a815 |
line wrap: on
line diff
--- a/src/doc.c Wed Apr 03 15:33:17 2002 +0000 +++ b/src/doc.c Wed Apr 03 16:28:30 2002 +0000 @@ -441,7 +441,9 @@ /* 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 @@ 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);