Mercurial > emacs

changeset 44381:15b5489c78d6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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 aa703590324a
children bbc359cfb383
files src/doc.c
diffstat 1 files changed, 6 insertions(+), 3 deletions(-) [+]
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);