Mercurial > emacs
changeset 18367:f4682a047be1
(custom-magic-value-create):
In `links' style, don't indent the member groups.
(custom-group-value-create): Likewise.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sat, 21 Jun 1997 18:20:23 +0000 |
| parents | 2aaa07c43738 |
| children | 14b3e7eb6a17 |
| files | lisp/cus-edit.el |
| diffstat | 1 files changed, 11 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/cus-edit.el Sat Jun 21 17:31:29 1997 +0000 +++ b/lisp/cus-edit.el Sat Jun 21 18:20:23 1997 +0000 @@ -1322,7 +1322,9 @@ (or (not hidden) (memq category custom-magic-show-hidden))) (insert " ") - (when (eq category 'group) + (when (and (eq category 'group) + (not (and (eq custom-buffer-style 'links) + (> (widget-get parent :custom-level) 1)))) (insert-char ?\ (* custom-buffer-indent (widget-get parent :custom-level)))) (push (widget-create-child-and-convert @@ -1341,7 +1343,9 @@ (when lisp (insert " (lisp)")) (insert "\n")) - (when (eq category 'group) + (when (and (eq category 'group) + (not (and (eq custom-buffer-style 'links) + (> (widget-get parent :custom-level) 1)))) (insert-char ?\ (* custom-buffer-indent (widget-get parent :custom-level)))) (when custom-magic-show-button @@ -2467,8 +2471,9 @@ ;; Nested style. ((eq state 'hidden) ;; Create level indicator. - (insert-char ?\ (* custom-buffer-indent (1- level))) - (insert "-- ") + (unless (eq custom-buffer-style 'links) + (insert-char ?\ (* custom-buffer-indent (1- level))) + (insert "-- ")) ;; Create tag. (let ((begin (point))) (insert tag) @@ -2496,6 +2501,8 @@ ;; Update buttons. (widget-put widget :buttons buttons) ;; Insert documentation. + (if (and (eq custom-buffer-style 'links) (> level 1)) + (widget-put widget :documentation-indent 0)) (widget-default-format-handler widget ?h)) ;; Nested style. (t ;Visible.