Mercurial > emacs
diff lisp/cus-edit.el @ 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 | 7af5860f4444 |
children | 3ddc4eef6279 |
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: ")