comparison lisp/cus-edit.el @ 18370:74558272517b

(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.

18369:ffdf3d404802

	      (t 
	       (insert ", "))))
      (widget-put widget :buttons buttons))))

(defun custom-add-parent-links (widget)
  "Add `Parent groups: ...' to WIDGET."
  (let ((name (widget-value widget))
	(type (widget-type widget))
	(buttons (widget-get widget :buttons))
	found)
    (insert "Parent groups:")
    (mapatoms (lambda (symbol)
		(let ((group (get symbol 'custom-group)))
		  (when (assq name group)

			     :tag (custom-unlispify-tag-name symbol)
			     symbol)
			    buttons)
		      (setq found t))))))
    (widget-put widget :buttons buttons)
    (unless found
      (insert " (none)"))
    (insert "\n")))

;;; The `custom-variable' Widget.

(defface custom-variable-sample-face '((t (:underline t)))
  "Face used for unpushable variable tags."

	   (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.
	   ;; Create level indicator.
	   (insert-char ?\  (* custom-buffer-indent (1- level)))
	   (insert "/- ")
	   ;; Create tag.
	   (let ((start (point)))

	     (push magic buttons))
	   ;; Update buttons.
	   (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))
	   (custom-add-see-also widget 
				(make-string (* custom-buffer-indent level)
					     ?\ ))
	   ;; Members.
	   (message "Creating group...")

18370:74558272517b

	      (t 
	       (insert ", "))))
      (widget-put widget :buttons buttons))))

(defun custom-add-parent-links (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)
		(let ((group (get symbol 'custom-group)))
		  (when (assq name group)

			     :tag (custom-unlispify-tag-name symbol)
			     symbol)
			    buttons)
		      (setq found t))))))
    (widget-put widget :buttons buttons)
    (if found
	(insert "\n")
      (delete-region start (point)))
    found))

;;; The `custom-variable' Widget.

(defface custom-variable-sample-face '((t (:underline t)))
  "Face used for unpushable variable tags."

	   (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.
	   ;; 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 "/- ")
	   ;; Create tag.
	   (let ((start (point)))

	     (push magic buttons))
	   ;; Update buttons.
	   (widget-put widget :buttons buttons)
	   ;; Insert documentation.
	   (widget-default-format-handler widget ?h)
	   ;; 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)
					     ?\ ))
	   ;; Members.
	   (message "Creating group...")