Function: compile-multi--add-properties

compile-multi--add-properties is a natively compiled function defined in compile-multi.el.

Signature

(compile-multi--add-properties TASKS)

Documentation

Attach a type property to compile-multi TASKS.

Source Code

;; Defined in /nix/store/ax1p6npch7lvclxg5n7cjd3i0dh74vcc-emacs-packages-deps/share/emacs/site-lisp/elpa/compile-multi-20250831.1542/compile-multi.el
(defun compile-multi--add-properties (tasks)
  "Attach a type property to `compile-multi' TASKS."
  (dolist (task tasks)
    (when-let* ((group-pos (string-match-p ":" (car task)))
                (type (intern (substring (car task) 0 group-pos))))
      (add-text-properties 0 1 (list 'consult--type type) (car task)))
    (when-let ((command (plist-get (cdr task) :command)))
      (add-text-properties 0 1 (list 'compile-multi--task command) (car task))))
  tasks)