diff options
| author | Richard M. Stallman <rms@gnu.org> | 2007-12-31 03:42:51 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 2007-12-31 03:42:51 +0000 |
| commit | f1201e3aedbfc10420ac6dd2427d3453383bee8a (patch) | |
| tree | 489348767d649106a1b6d6e855279bb88927ab0f | |
| parent | ec7d5b1e5774d6f36b065a7cf582956ed14f3bf6 (diff) | |
| download | emacs-f1201e3aedbfc10420ac6dd2427d3453383bee8a.tar.gz emacs-f1201e3aedbfc10420ac6dd2427d3453383bee8a.tar.bz2 emacs-f1201e3aedbfc10420ac6dd2427d3453383bee8a.zip | |
(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.
| -rw-r--r-- | lisp/cus-edit.el | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/lisp/cus-edit.el b/lisp/cus-edit.el index 7fccf0c6130..f17e6de758a 100644 --- a/lisp/cus-edit.el +++ b/lisp/cus-edit.el @@ -2313,7 +2313,8 @@ Insert PREFIX first if non-nil." (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 @@ If INITIAL-STRING is non-nil, use that rather than \"Parent groups:\"." (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 @@ If INITIAL-STRING is non-nil, use that rather than \"Parent groups:\"." (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 @@ If GROUPS-ONLY non-nil, return only those members that are groups." ;;; 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))) |