From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Wed, 3 Apr 2002 16:28:30 +0000 (+0000)
Subject: (Fdocumentation, Fdocumentation_property): When the doc
X-Git-Tag: ttn-vms-21-2-B4~15794
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=68d8a8e1fbc63972f4bebb85b5e8b2fc16d6a7a0;p=emacs.git

(Fdocumentation, Fdocumentation_property): When the doc
data is 0, just return nil.
---

diff --git a/src/doc.c b/src/doc.c
index 7b24db76668..6a64e79f740 100644
--- a/src/doc.c
+++ b/src/doc.c
@@ -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);