# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 866917223 0
# Node ID f4682a047be19ce05bced46f311501c137ea5900
# Parent  2aaa07c437385fdb8fc0352b7dea9ca6057bdebb
(custom-magic-value-create):
In `links' style, don't indent the member groups.
(custom-group-value-create): Likewise.

diff -r 2aaa07c43738 -r f4682a047be1 lisp/cus-edit.el
--- 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.