Commit 7c09e2e3 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

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

string can actually be found from the symbol.
parent ca10c3d1
......@@ -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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment