diff options
author | Per Abrahamsen <[email protected]> | 2003-12-27 16:41:13 +0000 |
---|---|---|
committer | Per Abrahamsen <[email protected]> | 2003-12-27 16:41:13 +0000 |
commit | cfa921fd39a965d78ee9ebfe8855afee524b1987 (patch) | |
tree | ea2e2087ef7a3af5f220ead9f8649a49d4e7985b /lisp/cus-edit.el | |
parent | c91406620cbf11dd9293ac52d6ee55f3dcf2a5fd (diff) |
2003-12-12 Jesper Harder <[email protected]>
* cus-edit.el (custom-add-parent-links): Define "many".
2003-12-08 Per Abrahamsen <[email protected]>
* wid-edit.el (widget-child-value-get, widget-child-value-inline)
(widget-child-validate, widget-type-value-create)
(widget-type-default-get, widget-type-match): New functions.
(lazy): New widget.
(menu-choice, checklist, radio-button-choice, editable-list)
(group, documentation-string): Removed redundant (per 2003-10-25
change) calls to `widget-children-value-delete'.
(widget-choice-value-get, widget-choice-value-inline): Removed
functions.
(menu-choice): Updated widget.
Diffstat (limited to 'lisp/cus-edit.el')
-rw-r--r-- | lisp/cus-edit.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/cus-edit.el b/lisp/cus-edit.el index bf92e8df9c..fc5e7ecb8a 100644 --- a/lisp/cus-edit.el +++ b/lisp/cus-edit.el @@ -1970,7 +1970,8 @@ If INITIAL-STRING is non-nil, use that rather than \"Parent groups:\"." (setq parents (cons symbol parents)))))) (and (null (get symbol 'custom-links)) ;No links of its own. (= (length parents) 1) ;A single parent. - (let ((links (get (car parents) 'custom-links))) + (let* ((links (get (car parents) 'custom-links)) + (many (> (length links) 2))) (when links (insert "\nParent documentation: ") (while links |