[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/cus-edit.el
From: |
Luc Teirlinck |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/cus-edit.el |
Date: |
Tue, 15 Nov 2005 21:02:03 -0500 |
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))