From: Richard M. Stallman <rms@gnu.org>
Date: Sat, 21 Jun 1997 18:20:23 +0000 (+0000)
Subject: (custom-magic-value-create):
X-Git-Tag: emacs-20.1~1579
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=26c7b3ef79aeeb2a59cf61f31a1ec950cf4a496c;p=emacs.git

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

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.