mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-29 19:48:19 +00:00
Code Issues Releases Activity

Whitespace change.

Browse Source
This commit is contained in:
Richard M. Stallman 2007-12-31 03:43:15 +00:00
parent f1201e3aed
commit 76564e7ce3
1 changed files with 16 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

32
lisp/cus-edit.el
View File

@ -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))))))