diff lisp/apropos.el @ 5366:9fb443ed4acf

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

--- 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