(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