Mercurial > emacs

changeset 18352:4951826c2ed2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(customize-group): Ignore case in completion. (custom-buffer-create-internal): Put parent groups near the top. (custom-format-handler) <L>: Use group-visibility. <L, i, - cases>: Triple the indentation, use just 2 dashes.
author Richard M. Stallman <rms@gnu.org>
date Sat, 21 Jun 1997 03:10:56 +0000
parents 8cc30b266976
children 6f1608446f88
files lisp/cus-edit.el
diffstat 1 files changed, 20 insertions(+), 16 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/cus-edit.el	Sat Jun 21 01:17:46 1997 +0000
+++ b/lisp/cus-edit.el	Sat Jun 21 03:10:56 1997 +0000
@@ -737,11 +737,12 @@
 ;;;###autoload
 (defun customize-group (group)
   "Customize GROUP, which must be a customization group."
-  (interactive (list (completing-read "Customize group: (default emacs) "
-				      obarray 
-				      (lambda (symbol)
-					(get symbol 'custom-group))
-				      t)))
+  (interactive (list (let ((completion-ignore-case t))
+		       (completing-read "Customize group: (default emacs) "
+					obarray 
+					(lambda (symbol)
+					  (get symbol 'custom-group))
+					t))))
 
   (when (stringp group)
     (if (string-equal "" group)
@@ -1044,6 +1045,9 @@
 		      (when (eq type (nth 1 (assq name group)))
 			(push symbol parents))))))
       (when parents
+	(goto-char (point-min))
+	(search-forward "[Set]")
+	(forward-line 1)
 	(widget-insert "\nParent groups:")
 	(mapcar (lambda (group)
 		  (widget-insert " ")
@@ -1056,7 +1060,7 @@
 					    (widget-value widget)))
 				 group))
 		parents)
-	(widget-insert ".\n"))))
+	(widget-insert "\n"))))
   (message "Creating customization magic...")
   (mapcar 'custom-magic-reset custom-options)
   (message "Creating customization setup...")
@@ -1338,29 +1342,29 @@
 	 (category (widget-get widget :custom-category)))
     (cond ((eq escape ?l)
 	   (when level 
-	     (insert-char ?\  (1- level))
+	     (insert-char ?\  (* 3 (1- level)))
 	     (if (eq state 'hidden)
-		 (insert-char ?- (1+ level))
-	       (insert "/")
-	       (insert-char ?- level))))
+		 (insert "--")
+	       (insert "/-"))))
 	  ((eq escape ?e)
 	   (when (and level (not (eq state 'hidden)))
 	     (insert "\n")
-	     (insert-char ?\  (1- level))
-	     (insert "\\")
-	     (insert-char ?-  level)
+	     (insert-char ?\  (* 3 (1- level)))
+	     (insert "\\-")
 	     (insert " " (widget-get widget :tag) " group end ")
 	     (insert-char ?- (- 75 (current-column) level))
 	     (insert "/\n")))
 	  ((eq escape ?-)
 	   (when (and level (not (eq state 'hidden)))
-	     (insert-char ?- (- 76 (current-column) level))
+	     ;; Add 1 to compensate for the extra < character
+	     ;; at the beginning of the line.
+	     (insert-char ?- (- (+ 75 1) (current-column) level))
 	     (insert "\\")))
 	  ((eq escape ?i)
-	   (insert-char ?\  (+ 1 level level)))
+	   (insert-char ?\  (* 3 level)))
 	  ((eq escape ?L)
 	   (push (widget-create-child-and-convert
-		  widget 'visibility
+		  widget 'group-visibility
 		  :help-echo "Show or hide this group."
 		  :action 'custom-toggle-parent
 		  (not (eq state 'hidden)))