From: Richard M. Stallman <rms@gnu.org>
Date: Wed, 29 Dec 1993 06:55:23 +0000 (+0000)
Subject: (super-apropos-check-doc-file): Verify that the doc
X-Git-Tag: emacs-19.34~10485
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=7c09e2e327c5317ee6fc3687cb7c512817a13954;p=emacs.git

(super-apropos-check-doc-file): Verify that the doc
string can actually be found from the symbol.
---

diff --git a/lisp/apropos.el b/lisp/apropos.el
index 77f204ce874..8cc2940349d 100644
--- a/lisp/apropos.el
+++ b/lisp/apropos.el
@@ -153,10 +153,13 @@ Returns list of symbols and documentation found."
 			 (1- (point))
 		       (point))))
 	      item (assq symbol sym-list))
-	(or item
-	    (setq item (list symbol nil nil)
-		  sym-list (cons item sym-list)))
-	(setcar (nthcdr type item) doc)))
+	(and (if (= type 1)
+		 (documentation symbol)
+	       (documentation-property symbol 'variable-documentation))
+	     (or item
+		 (setq item (list symbol nil nil)
+		       sym-list (cons item sym-list)))
+	     (setcar (nthcdr type item) doc))))
     sym-list))
 
 ;; This is passed as the argument to map-atoms, so it is called once for every