# HG changeset patch # User Richard M. Stallman # Date 1199072595 0 # Node ID 6fa5fc37cfee85c59361779c518c8f7ef328cbb8 # Parent a4773f4054343cf1c92bf6c59b722d2ea4eb6c24 Whitespace change. diff -r a4773f405434 -r 6fa5fc37cfee lisp/cus-edit.el --- a/lisp/cus-edit.el Mon Dec 31 03:42:51 2007 +0000 +++ b/lisp/cus-edit.el Mon Dec 31 03:43:15 2007 +0000 @@ -2344,22 +2344,22 @@ (when links (let ((pt (point)) (left-margin (+ left-margin 2))) - (insert "\n" (or doc-initial-string "Group documentation:") " ") - (while links - (push (widget-create-child-and-convert - widget (car links) - :button-face 'custom-link - :mouse-face 'highlight - :pressed-face 'highlight) - buttons) - (setq links (cdr links)) - (cond ((null links) - (insert ".\n")) - ((null (cdr links)) - (if many - (insert ", and ") - (insert " and "))) - (t + (insert "\n" (or doc-initial-string "Group documentation:") " ") + (while links + (push (widget-create-child-and-convert + widget (car links) + :button-face 'custom-link + :mouse-face 'highlight + :pressed-face 'highlight) + buttons) + (setq links (cdr links)) + (cond ((null links) + (insert ".\n")) + ((null (cdr links)) + (if many + (insert ", and ") + (insert " and "))) + (t (insert ", ")))) (fill-region-as-paragraph pt (point)) (delete-to-left-margin (1+ pt) (+ pt 2))))))