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 defclass defgeneric defconst
define-minor-mode defface)) define-minor-mode defface))
(let ((type (symbol-name (car expr))) (let ((type (symbol-name (car expr)))
(name (symbol-name (cadr expr)))) (name (symbol-name (cadr expr)))
(unless (string-match edocs-private-regexp name) (docs (edocs--get-doc expr)))
(unless (or (string-match edocs-private-regexp name)
(not docs))
(push (make-edocs-symbol (push (make-edocs-symbol
:name name :type type :name name :type type :doc docs
:doc (edocs--get-doc expr)
:args (edocs--get-arg-list expr)) ls)))))) :args (edocs--get-arg-list expr)) ls))))))
(end-of-file nil)) (end-of-file nil))
(reverse ls)))) (reverse ls))))