(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 77f204ce87444668dafe9f94e026f1cbcdab94a5..8cc2940349d7972bc6a23093c7fe07981cdc7c93 100644 (file)
--- 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