Function: eieio-read-customization-group

eieio-read-customization-group is a byte-compiled function defined in eieio-custom.el.gz.

Signature

(eieio-read-customization-group ARG &rest ARGS)

Implementations

((obj eieio-default-superclass)) in `eieio-custom.el'.

Do a completing read on the name of a customization group in OBJ. Return the symbol for the group, or nil.

Source Code

;; Defined in /usr/src/emacs/lisp/emacs-lisp/eieio-custom.el.gz
(cl-defmethod eieio-read-customization-group ((obj eieio-default-superclass))
  "Do a completing read on the name of a customization group in OBJ.
Return the symbol for the group, or nil."
  (let ((g (eieio--class-option (eieio--object-class obj)
                                :custom-groups)))
    (if (= (length g) 1)
	(car g)
      ;; Make the association list
      (setq g (mapcar (lambda (g) (cons (symbol-name g) g)) g))
      (cdr (assoc
	    (completing-read
             (concat
              (if (slot-exists-p obj 'name)
                  (concat (slot-value obj (intern "name" obarray)) "")
                "")
              "Custom Group: ")
	     g nil t nil 'eieio-read-custom-group-history)
	    g)))))