(custom-magic-value-create):

In `links' style, don't indent the member groups.
(custom-group-value-create): Likewise.

1 files 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.