[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/29 19:26:07

Index: cus-edit.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/cus-edit.el,v
retrieving revision 1.319.2.7
retrieving revision 1.319.2.8
diff -u -b -r1.319.2.7 -r1.319.2.8
--- cus-edit.el 24 Oct 2007 08:09:30 -0000      1.319.2.7
+++ cus-edit.el 29 Dec 2007 19:26:06 -0000      1.319.2.8
@@ -1412,7 +1412,7 @@
 (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 @@
                                         (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 @@
                           (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)))