# HG changeset patch
# User Luc Teirlinck <teirllm@auburn.edu>
# Date 1132106523 0
# Node ID b39a51cbc6b6381fcdaebe422052383ba7d54fda
# Parent  4689a51b18f9ac29a10fee41bf8bffafc95b694a
(custom-add-parent-links): Fix bug whereby, for instance,
`(fringe custom-face)' shadowed `(fringe custom-group)'
in the custom-group property of the symbol frames and the
fringe group got no link to its parent group frames.
Doc fix.

diff -r 4689a51b18f9 -r b39a51cbc6b6 lisp/cus-edit.el
--- a/lisp/cus-edit.el	Wed Nov 16 01:03:35 2005 +0000
+++ b/lisp/cus-edit.el	Wed Nov 16 02:02:03 2005 +0000
@@ -2124,7 +2124,7 @@
 
 (defun custom-add-parent-links (widget &optional initial-string)
   "Add \"Parent groups: ...\" to WIDGET if the group has parents.
-The value if non-nil if any parents were found.
+The value is non-nil if any parents were found.
 If INITIAL-STRING is non-nil, use that rather than \"Parent groups:\"."
   (let ((name (widget-value widget))
 	(type (widget-type widget))
@@ -2133,15 +2133,14 @@
 	(parents nil))
     (insert (or initial-string "Parent groups:"))
     (mapatoms (lambda (symbol)
-		(let ((entry (assq name (get symbol 'custom-group))))
-		  (when (eq (nth 1 entry) type)
-		    (insert " ")
-		    (push (widget-create-child-and-convert
-			   widget 'custom-group-link
-			   :tag (custom-unlispify-tag-name symbol)
-			   symbol)
-			  buttons)
-		    (setq parents (cons symbol parents))))))
+		(when (member (list name type) (get symbol 'custom-group))
+		  (insert " ")
+		  (push (widget-create-child-and-convert
+			 widget 'custom-group-link
+			 :tag (custom-unlispify-tag-name symbol)
+			 symbol)
+			buttons)
+		  (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))