Function: consult-customize

consult-customize is a macro defined in consult.el.

Signature

(consult-customize &rest ARGS)

Documentation

Set properties of commands or sources.

ARGS is a list of commands or sources followed by the list of keyword-value pairs. For consult-customize to succeed, the customized sources and commands must exist. When a command is invoked, the value of :command or this-command is used to lookup the corresponding customization options.

Source Code

;; Defined in ~/.emacs.d/elpa/consult-20260805.1130/consult.el
(defmacro consult-customize (&rest args)
  "Set properties of commands or sources.
ARGS is a list of commands or sources followed by the list of
keyword-value pairs.  For `consult-customize' to succeed, the customized
sources and commands must exist.  When a command is invoked, the value
of `:command' or `this-command' is used to lookup the corresponding
customization options."
  (let (setter)
    (while args
      (let ((cmds (seq-take-while (lambda (x) (not (keywordp x))) args)))
        (setq args (seq-drop-while (lambda (x) (not (keywordp x))) args))
        (while (keywordp (car args))
          (push `(consult--customize-put ',cmds ,(car args) ',(cadr args)) setter)
          (setq args (cddr args)))))
    (macroexp-progn setter)))