From 8bcb1e2640bccaae230b259cb5c4a20453b6e74f Mon Sep 17 00:00:00 2001 From: Tom Willemse Date: Sun, 26 Jan 2014 01:38:15 +0100 Subject: [PATCH] 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. --- edocs.el | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/edocs.el b/edocs.el index ff1cdcc..94e9933 100644 --- a/edocs.el +++ b/edocs.el @@ -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))))