# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 757148123 0
# Node ID 9fb443ed4acf22cfa8c0b70c9a3b8c22e931595f
# Parent  362f4c3bd99cc966c2668a911ba63cf54fca03d5
(super-apropos-check-doc-file): Verify that the doc
string can actually be found from the symbol.

diff -r 362f4c3bd99c -r 9fb443ed4acf lisp/apropos.el
--- a/lisp/apropos.el	Sun Dec 26 20:02:44 1993 +0000
+++ b/lisp/apropos.el	Wed Dec 29 06:55:23 1993 +0000
@@ -153,10 +153,13 @@
 			 (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