Function: orderless--compile-component

orderless--compile-component is a natively compiled function defined in orderless.el.

Signature

(orderless--compile-component COMPONENT INDEX TOTAL STYLES DISPATCHERS)

Documentation

Compile COMPONENT at INDEX of TOTAL components with STYLES and DISPATCHERS.

Source Code

;; Defined in /nix/store/x8591dlnsvch2j4brlxddqs0axxy3w60-emacs-packages-deps/share/emacs/site-lisp/elpa/orderless-20260927.2344/orderless.el
(defun orderless--compile-component (component index total styles dispatchers)
  "Compile COMPONENT at INDEX of TOTAL components with STYLES and DISPATCHERS."
  (cl-loop
   with pred = nil
   with (newsty . newcomp) = (orderless--dispatch dispatchers styles
                                                  component index total)
   for style in (if (functionp newsty) (list newsty) newsty)
   for res = (condition-case nil
                 (funcall style newcomp)
               (wrong-number-of-arguments
                (when-let* ((res (orderless--compile-component
                                  newcomp index total styles dispatchers)))
                  (funcall style (car res) (cdr res)))))
   if (functionp res) do (cl-callf orderless--predicate-and pred res)
   else if res collect (if (stringp res) `(regexp ,res) res) into regexps
   finally return
   (when (or pred regexps)
     (cons pred (and regexps (rx-to-string `(or ,@(delete-dups regexps)) t))))))