Mercurial > emacs
changeset 79659:a4773f405434
(custom-add-parent-links): New arg DOC-INITIAL-STRING.
Defaults for INITIAL-STRING and DOC-INITIAL-STRING do not include `parent'.
(custom-group-value-create): Pass two args to custom-add-parent-links.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Mon, 31 Dec 2007 03:42:51 +0000 |
| parents | 25632103272c |
| children | 6fa5fc37cfee |
| files | lisp/cus-edit.el |
| diffstat | 1 files changed, 6 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/cus-edit.el Sun Dec 30 21:39:45 2007 +0000 +++ b/lisp/cus-edit.el Mon Dec 31 03:42:51 2007 +0000 @@ -2313,7 +2313,8 @@ (insert ", ")))) (widget-put widget :buttons buttons)))) -(defun custom-add-parent-links (widget &optional initial-string) +(defun custom-add-parent-links (widget &optional initial-string + doc-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:\"." @@ -2322,7 +2323,7 @@ (buttons (widget-get widget :buttons)) (start (point)) (parents nil)) - (insert (or initial-string "Parent groups:")) + (insert (or initial-string "Groups:")) (mapatoms (lambda (symbol) (when (member (list name type) (get symbol 'custom-group)) (insert " ") @@ -2343,7 +2344,7 @@ (when links (let ((pt (point)) (left-margin (+ left-margin 2))) - (insert "\nParent documentation: ") + (insert "\n" (or doc-initial-string "Group documentation:") " ") (while links (push (widget-create-child-and-convert widget (car links) @@ -3944,7 +3945,8 @@ ;;; was made to display a group. (when (eq level 1) (if (custom-add-parent-links widget - "Parent groups:") + "Parent groups:" + "Parent group documentation:") (insert "\n")))) ;; Create level indicator. (insert-char ?\ (* custom-buffer-indent (1- level)))