# HG changeset patch
# User Juri Linkov <juri@jurta.org>
# Date 1134028180 0
# Node ID 3fe860e6e6eb49d45d8878c081377a6e1e7ebbee
# Parent  f031a0708433a1d71cf3f19ecee38a6d88b9ed01
(custom-add-parent-links): Filter out custom-group-link,
because such links don't lead to parent documentation.

diff -r f031a0708433 -r 3fe860e6e6eb lisp/cus-edit.el
--- 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: ")