Mercurial > emacs
changeset 67378:3fe860e6e6eb
(custom-add-parent-links): Filter out custom-group-link,
because such links don't lead to parent documentation.
| author | Juri Linkov <juri@jurta.org> |
|---|---|
| date | Thu, 08 Dec 2005 07:49:40 +0000 |
| parents | f031a0708433 |
| children | f25add4d68aa |
| files | lisp/cus-edit.el |
| diffstat | 1 files changed, 5 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/cus-edit.el Thu Dec 08 07:49:07 2005 +0000 +++ b/lisp/cus-edit.el Thu Dec 08 07:49:40 2005 +0000 @@ -2155,7 +2155,11 @@ (setq parents (cons symbol parents))))) (and (null (get name 'custom-links)) ;No links of its own. (= (length parents) 1) ;A single parent. - (let* ((links (get (car parents) 'custom-links)) + (let* ((links (delq nil (mapcar (lambda (w) + (unless (eq (widget-type w) + 'custom-group-link) + w)) + (get (car parents) 'custom-links)))) (many (> (length links) 2))) (when links (insert "\nParent documentation: ")