diff options
| -rw-r--r-- | lisp/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/cus-edit.el | 8 |
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))) |