Mercurial > emacs
changeset 66904:b39a51cbc6b6
(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.
| author | Luc Teirlinck <teirllm@auburn.edu> |
|---|---|
| date | Wed, 16 Nov 2005 02:02:03 +0000 |
| parents | 4689a51b18f9 |
| children | e0955732eb23 |
| files | lisp/cus-edit.el |
| diffstat | 1 files changed, 9 insertions(+), 10 deletions(-) [+] |
line wrap: on
line diff
--- 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))