Function: consult-compile-multi--narrow

consult-compile-multi--narrow is a natively compiled function defined in consult-compile-multi.el.

Signature

(consult-compile-multi--narrow)

Documentation

Calculate a compile-multi narrowing configuration.

Source Code

;; Defined in /nix/store/bcirfg5lifzpc2ahfjss5s2gg41fqrbw-emacs-packages-deps/share/emacs/site-lisp/elpa/consult-compile-multi-20250101.2156/consult-compile-multi.el
(defun consult-compile-multi--narrow ()
  "Calculate a `compile-multi' narrowing configuration."
  (list :predicate
        (lambda (cand)
          (when-let ((type-list
                      (cdr (alist-get consult--narrow consult-compile-multi-narrow))))
            (member (get-text-property 0 'consult--type (car cand)) type-list)))
        :keys
        (mapcar (pcase-lambda (`(,x ,y ,_)) (cons x y))
                consult-compile-multi-narrow)))