Function: custom-add-to-group

custom-add-to-group is a byte-compiled function defined in custom.el.gz.

Signature

(custom-add-to-group GROUP OPTION WIDGET)

Documentation

To existing GROUP add a new OPTION of type WIDGET.

If there already is an entry for OPTION and WIDGET, nothing is done.

Source Code

;; Defined in /usr/src/emacs/lisp/custom.el.gz
(defun custom-add-to-group (group option widget)
  "To existing GROUP add a new OPTION of type WIDGET.
If there already is an entry for OPTION and WIDGET, nothing is done."
  (let ((members (get group 'custom-group))
	(entry (list option widget)))
    (unless (member entry members)
      (put group 'custom-group (nconc members (list entry))))))