diff options
| author | Richard M. Stallman | 2007-12-31 03:43:15 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 2007-12-31 03:43:15 +0000 |
| commit | 76564e7ce3b5e888e3260dd3510c3cf1a254f7da (patch) | |
| tree | 60c6308d7138f5df043fdc1a82c626dbf769d085 | |
| parent | f1201e3aedbfc10420ac6dd2427d3453383bee8a (diff) | |
| download | emacs-76564e7ce3b5e888e3260dd3510c3cf1a254f7da.tar.gz emacs-76564e7ce3b5e888e3260dd3510c3cf1a254f7da.zip | |
Whitespace change.
| -rw-r--r-- | lisp/cus-edit.el | 32 |
1 files changed, 16 insertions, 16 deletions
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:\"." | |||
| 2344 | (when links | 2344 | (when links |
| 2345 | (let ((pt (point)) | 2345 | (let ((pt (point)) |
| 2346 | (left-margin (+ left-margin 2))) | 2346 | (left-margin (+ left-margin 2))) |
| 2347 | (insert "\n" (or doc-initial-string "Group documentation:") " ") | 2347 | (insert "\n" (or doc-initial-string "Group documentation:") " ") |
| 2348 | (while links | 2348 | (while links |
| 2349 | (push (widget-create-child-and-convert | 2349 | (push (widget-create-child-and-convert |
| 2350 | widget (car links) | 2350 | widget (car links) |
| 2351 | :button-face 'custom-link | 2351 | :button-face 'custom-link |
| 2352 | :mouse-face 'highlight | 2352 | :mouse-face 'highlight |
| 2353 | :pressed-face 'highlight) | 2353 | :pressed-face 'highlight) |
| 2354 | buttons) | 2354 | buttons) |
| 2355 | (setq links (cdr links)) | 2355 | (setq links (cdr links)) |
| 2356 | (cond ((null links) | 2356 | (cond ((null links) |
| 2357 | (insert ".\n")) | 2357 | (insert ".\n")) |
| 2358 | ((null (cdr links)) | 2358 | ((null (cdr links)) |
| 2359 | (if many | 2359 | (if many |
| 2360 | (insert ", and ") | 2360 | (insert ", and ") |
| 2361 | (insert " and "))) | 2361 | (insert " and "))) |
| 2362 | (t | 2362 | (t |
| 2363 | (insert ", ")))) | 2363 | (insert ", ")))) |
| 2364 | (fill-region-as-paragraph pt (point)) | 2364 | (fill-region-as-paragraph pt (point)) |
| 2365 | (delete-to-left-margin (1+ pt) (+ pt 2)))))) | 2365 | (delete-to-left-margin (1+ pt) (+ pt 2)))))) |