(super-apropos-check-doc-file): Verify that the doc

string can actually be found from the symbol.

1 files changed, 7 insertions, 4 deletions

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