comparison lisp/cus-edit.el @ 79659:a4773f405434

(custom-add-parent-links): New arg DOC-INITIAL-STRING. Defaults for INITIAL-STRING and DOC-INITIAL-STRING do not include `parent'. (custom-group-value-create): Pass two args to custom-add-parent-links.

79658:25632103272c

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

(defun custom-add-parent-links (widget &optional initial-string)
  "Add \"Parent groups: ...\" to WIDGET if the group has parents.
The value is non-nil if any parents were found.
If INITIAL-STRING is non-nil, use that rather than \"Parent groups:\"."
  (let ((name (widget-value widget))
	(type (widget-type widget))
	(buttons (widget-get widget :buttons))
	(start (point))
	(parents nil))
    (insert (or initial-string "Parent groups:"))
    (mapatoms (lambda (symbol)
		(when (member (list name type) (get symbol 'custom-group))
		  (insert " ")
		  (push (widget-create-child-and-convert
			 widget 'custom-group-link

					 (get (car parents) 'custom-links))))
                (many (> (length links) 2)))
           (when links
             (let ((pt (point))
                   (left-margin (+ left-margin 2)))
             (insert "\nParent documentation: ")
             (while links
               (push (widget-create-child-and-convert
		      widget (car links)
		      :button-face 'custom-link
		      :mouse-face 'highlight

	   ;; 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
					      "Parent groups:")
		     (insert "\n"))))
	   ;; Create level indicator.
	   (insert-char ?\  (* custom-buffer-indent (1- level)))
	   (insert "/- ")
	   ;; Create tag.

79659:a4773f405434

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

(defun custom-add-parent-links (widget &optional initial-string
				       doc-initial-string)
  "Add \"Parent groups: ...\" to WIDGET if the group has parents.
The value is non-nil if any parents were found.
If INITIAL-STRING is non-nil, use that rather than \"Parent groups:\"."
  (let ((name (widget-value widget))
	(type (widget-type widget))
	(buttons (widget-get widget :buttons))
	(start (point))
	(parents nil))
    (insert (or initial-string "Groups:"))
    (mapatoms (lambda (symbol)
		(when (member (list name type) (get symbol 'custom-group))
		  (insert " ")
		  (push (widget-create-child-and-convert
			 widget 'custom-group-link

					 (get (car parents) 'custom-links))))
                (many (> (length links) 2)))
           (when links
             (let ((pt (point))
                   (left-margin (+ left-margin 2)))
	     (insert "\n" (or doc-initial-string "Group documentation:") " ")
             (while links
               (push (widget-create-child-and-convert
		      widget (car links)
		      :button-face 'custom-link
		      :mouse-face 'highlight

	   ;; 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
					      "Parent groups:"
					      "Parent group documentation:")
		     (insert "\n"))))
	   ;; Create level indicator.
	   (insert-char ?\  (* custom-buffer-indent (1- level)))
	   (insert "/- ")
	   ;; Create tag.