[Emacs-diffs] Changes to emacs/lisp/cus-edit.el

[Luc Teirlinck]

Index: emacs/lisp/cus-edit.el
diff -c emacs/lisp/cus-edit.el:1.238 emacs/lisp/cus-edit.el:1.239
*** emacs/lisp/cus-edit.el:1.238        Mon Nov 14 18:28:12 2005
--- emacs/lisp/cus-edit.el      Wed Nov 16 02:02:03 2005
***************
*** 2124,2130 ****
  
  (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.
  If INITIAL-STRING is non-nil, use that rather than \"Parent groups:\"."
    (let ((name (widget-value widget))
        (type (widget-type widget))
--- 2124,2130 ----
  
  (defun custom-add-parent-links (widget &optional initial-string)
    "Add \"Parent groups: ...\" to WIDGET if the group has parents.
! 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,2147 ****
        (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))))))
      (and (null (get name 'custom-links)) ;No links of its own.
           (= (length parents) 1)         ;A single parent.
           (let* ((links (get (car parents) 'custom-links))
--- 2133,2146 ----
        (parents nil))
      (insert (or initial-string "Parent groups:"))
      (mapatoms (lambda (symbol)
!               (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))