comparison lisp/cus-edit.el @ 18856:03eeb83520d8

(custom-group-value-create) <tree>: Don't distinguish unloaded groups; use [+] for them. (customize-browse): Fix top-of-buffer doc text.

18855:915f558fc1ce

      (switch-to-buffer (get-buffer-create name)))
    (custom-mode)
    (widget-insert "\
Square brackets show active fields; type RET or click mouse-1
on an active field to invoke its action.
Invoke [+] or [?] below to expand items, and [-] to collapse items.\n")
    (if custom-browse-only-groups
	(widget-insert "\
Invoke the [Group] button below to edit that item in another window.\n\n")
      (widget-insert "Invoke the ") 
      (widget-create 'item 

		    (custom-unloaded-widget-p widget)))
	   (custom-browse-insert-prefix prefix)
	   (push (widget-create-child-and-convert
		  widget 'custom-browse-visibility 
		  ;; :tag-glyph "plus"
		  :tag (if (custom-unloaded-widget-p widget) "?" "+"))
		 buttons)
	   (insert "-- ")
	   ;; (widget-glyph-insert nil "-- " "horizontal")
	   (push (widget-create-child-and-convert
		  widget 'custom-browse-group-tag)

18856:03eeb83520d8

      (switch-to-buffer (get-buffer-create name)))
    (custom-mode)
    (widget-insert "\
Square brackets show active fields; type RET or click mouse-1
on an active field to invoke its action.
Invoke [+] below to expand a group, and [-] to collapse an expanded group.\n")
    (if custom-browse-only-groups
	(widget-insert "\
Invoke the [Group] button below to edit that item in another window.\n\n")
      (widget-insert "Invoke the ") 
      (widget-create 'item 

		    (custom-unloaded-widget-p widget)))
	   (custom-browse-insert-prefix prefix)
	   (push (widget-create-child-and-convert
		  widget 'custom-browse-visibility 
		  ;; :tag-glyph "plus"
		  :tag "+")
		 buttons)
	   (insert "-- ")
	   ;; (widget-glyph-insert nil "-- " "horizontal")
	   (push (widget-create-child-and-convert
		  widget 'custom-browse-group-tag)