(custom-add-parent-links): Fill the "Parent documentation" text.

2 files changed, 11 insertions, 2 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 0ab19236752..2e4ff332ce6 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -12,6 +12,11 @@
         * facemenu.el (list-colors-print): Use :background and :foreground
         instead of background-color and foreground-color.
 
+2007-12-29  Drew Adams  <drew.adams@oracle.com>
+
+        * cus-edit.el (custom-add-parent-links):
+        Fill the "Parent documentation" text.
+ 
 2007-12-29  Eli Zaretskii  <eliz@gnu.org>
 
         * textmodes/ispell.el (ispell-grep-command): Use "grep" on
diff --git a/lisp/cus-edit.el b/lisp/cus-edit.el
index 40ff46f1675..7fccf0c6130 100644
--- a/lisp/cus-edit.el
+++ b/lisp/cus-edit.el
@@ -1412,7 +1412,7 @@ that are not customizable options, as well as faces and groups
 (defun customize-apropos-options (regexp &optional arg)
   "Customize all loaded customizable options matching REGEXP.
 With prefix arg, include variables that are not customizable options
-\(but we recommend using `apropos-variable' instead)."
+\(but it is better to use `apropos-variable' if you want to find those)."
   (interactive "sCustomize options (regexp): \nP")
   (customize-apropos regexp (or arg 'options)))
 
@@ -2341,6 +2341,8 @@ If INITIAL-STRING is non-nil, use that rather than \"Parent groups:\"."
                                          (get (car parents) 'custom-links))))
                 (many (> (length links) 2)))
            (when links
+             (let ((pt (point))
+                   (left-margin (+ left-margin 2)))
              (insert "\nParent documentation: ")
              (while links
                (push (widget-create-child-and-convert
@@ -2357,7 +2359,9 @@ If INITIAL-STRING is non-nil, use that rather than \"Parent groups:\"."
                           (insert ", and ")
                         (insert " and ")))
                      (t
-                      (insert ", ")))))))
+                        (insert ", "))))
+               (fill-region-as-paragraph pt (point))
+               (delete-to-left-margin (1+ pt) (+ pt 2))))))
     (if parents
         (insert "\n")
       (delete-region start (point)))