ryuslash/edocs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Don't include undocumented items

Browse source 
They were already not printed, but they were still indexed. Not indexing
them keeps them from being linked to in other parts of the
documentation.
This commit is contained in:
Tom Willemse 2014-01-26 01:38:15 +01:00
parent edbf50b028
commit 8bcb1e2640
1 changed files with 5 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
edocs.el
View file

@ -132,11 +132,12 @@ etc."
defclass defgeneric defconst
define-minor-mode defface))
(let ((type (symbol-name (car expr)))
(name (symbol-name (cadr expr))))
(unless (string-match edocs-private-regexp name)
(name (symbol-name (cadr expr)))
(docs (edocs--get-doc expr)))
(unless (or (string-match edocs-private-regexp name)
(not docs))
(push (make-edocs-symbol
:name name :type type
:doc (edocs--get-doc expr)
:name name :type type :doc docs
:args (edocs--get-arg-list expr)) ls))))))
(end-of-file nil))
(reverse ls))))