From 26c7b3ef79aeeb2a59cf61f31a1ec950cf4a496c Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sat, 21 Jun 1997 18:20:23 +0000 Subject: [PATCH] (custom-magic-value-create): In `links' style, don't indent the member groups. (custom-group-value-create): Likewise. --- lisp/cus-edit.el | 15 +++++++++++---- 1 file changed, 11 insertions(+), 4 deletions(-) diff --git a/lisp/cus-edit.el b/lisp/cus-edit.el index 32d099c1c11..6f91c2579f2 100644 --- a/lisp/cus-edit.el +++ b/lisp/cus-edit.el @@ -1322,7 +1322,9 @@ and `face'." (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 @@ and `face'." (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 @@ and so forth. The remaining group tags are shown with ;; 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 @@ and so forth. The remaining group tags are shown with ;; 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. -- 2.39.5