From: Richard M. Stallman Date: Mon, 31 Dec 2007 03:43:15 +0000 (+0000) Subject: Whitespace change. X-Git-Tag: emacs-pretest-22.1.90~204 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=76564e7ce3b5e888e3260dd3510c3cf1a254f7da;p=emacs.git Whitespace change. --- diff --git a/lisp/cus-edit.el b/lisp/cus-edit.el index f17e6de758a..941e1ec5e7c 100644 --- a/lisp/cus-edit.el +++ b/lisp/cus-edit.el @@ -2344,22 +2344,22 @@ If INITIAL-STRING is non-nil, use that rather than \"Parent groups:\"." (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))))))