From 7c09e2e327c5317ee6fc3687cb7c512817a13954 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Wed, 29 Dec 1993 06:55:23 +0000 Subject: [PATCH] (super-apropos-check-doc-file): Verify that the doc string can actually be found from the symbol. --- lisp/apropos.el | 11 +++++++---- 1 file 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 -- 2.39.5