# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1199072571 0
# Node ID a4773f4054343cf1c92bf6c59b722d2ea4eb6c24
# Parent  25632103272c6a996317e236d3740de3d82e5304
(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.

diff -r 25632103272c -r a4773f405434 lisp/cus-edit.el
--- 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)))