Mercurial > emacs

changeset 18370:74558272517b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(custom-group-value-create): Use group-visibility widget. (custom-add-parent-links): Don't insert anything if no parents. Return non-nil iff do have parents.
author Richard M. Stallman <rms@gnu.org>
date Sat, 21 Jun 1997 18:51:28 +0000
parents ffdf3d404802
children a32f9b2c2e0c
files lisp/cus-edit.el
diffstat 1 files changed, 19 insertions(+), 8 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/cus-edit.el	Sat Jun 21 18:32:42 1997 +0000
+++ b/lisp/cus-edit.el	Sat Jun 21 18:51:28 1997 +0000
@@ -1528,10 +1528,12 @@
       (widget-put widget :buttons buttons))))
 
 (defun custom-add-parent-links (widget)
-  "Add `Parent groups: ...' to WIDGET."
+  "Add `Parent groups: ...' to WIDGET.
+The value if non-nil if there are parents."
   (let ((name (widget-value widget))
 	(type (widget-type widget))
 	(buttons (widget-get widget :buttons))
+	(start (point))
 	found)
     (insert "Parent groups:")
     (mapatoms (lambda (symbol)
@@ -1546,9 +1548,10 @@
 			    buttons)
 		      (setq found t))))))
     (widget-put widget :buttons buttons)
-    (unless found
-      (insert " (none)"))
-    (insert "\n")))
+    (if found
+	(insert "\n")
+      (delete-region start (point)))
+    found))
 
 ;;; The `custom-variable' Widget.
 
@@ -2506,6 +2509,12 @@
 	   (widget-default-format-handler widget ?h))
 	  ;; Nested style.
 	  (t				;Visible.
+	   ;; Add parent groups references above the group.
+	   (if t    ;;; This should test that the buffer
+		    ;;; was made to display a group.
+	       (when (eq level 1)
+		 (if (custom-add-parent-links widget)
+		     (insert "\n"))))
 	   ;; Create level indicator.
 	   (insert-char ?\  (* custom-buffer-indent (1- level)))
 	   (insert "/- ")
@@ -2541,10 +2550,12 @@
 	   (widget-put widget :buttons buttons)
 	   ;; Insert documentation.
 	   (widget-default-format-handler widget ?h)
-	   ;; Parents and See also.
-	   (when (eq level 1)
-	     (insert-char ?\  custom-buffer-indent)
-	     (custom-add-parent-links widget))
+	   ;; Parent groups.
+	   (if nil  ;;; This should test that the buffer
+		    ;;; was not made to display a group.
+	       (when (eq level 1)
+		 (insert-char ?\  custom-buffer-indent)
+		 (custom-add-parent-links widget)))
 	   (custom-add-see-also widget 
 				(make-string (* custom-buffer-indent level)
 					     ?\ ))