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 | |
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.
-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)))) |