[Emacs-diffs] Changes to emacs/lisp/cus-edit.el,v [EMACS_22_BASE]

[Richard M. Stallman]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Branch:         EMACS_22_BASE
Changes by:     Richard M. Stallman <rms>       07/12/31 03:42:52

Index: cus-edit.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/cus-edit.el,v
retrieving revision 1.319.2.8
retrieving revision 1.319.2.9
diff -u -b -r1.319.2.8 -r1.319.2.9
--- cus-edit.el 29 Dec 2007 19:26:06 -0000      1.319.2.8
+++ cus-edit.el 31 Dec 2007 03:42:51 -0000      1.319.2.9
@@ -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)))