diff options
author | Tom Willemse | 2014-01-26 01:38:15 +0100 |
---|---|---|
committer | Tom Willemse | 2014-01-26 01:38:15 +0100 |
commit | 8bcb1e2640bccaae230b259cb5c4a20453b6e74f (patch) | |
tree | c45e7769da54d9ba635fafa3aed43c00983d7edd /edocs.el | |
parent | edbf50b028357425d709ab88094d1f9630198f6d (diff) | |
download | edocs-8bcb1e2640bccaae230b259cb5c4a20453b6e74f.tar.gz edocs-8bcb1e2640bccaae230b259cb5c4a20453b6e74f.zip |
Don't include undocumented items
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.
Diffstat (limited to 'edocs.el')
-rw-r--r-- | edocs.el | 9 |
1 files changed, 5 insertions, 4 deletions
@@ -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)))) |