Function: comp-async-runnings

comp-async-runnings is a byte-compiled function defined in comp.el.gz.

Signature

(comp-async-runnings)

Documentation

Return the number of async compilations currently running.

This function has the side effect of cleaning-up finished processes from comp-async-compilations

Source Code

;; Defined in /usr/src/emacs/lisp/emacs-lisp/comp.el.gz
(defun comp-async-runnings ()
  "Return the number of async compilations currently running.
This function has the side effect of cleaning-up finished
processes from `comp-async-compilations'"
  (cl-loop
   for file-name in (cl-loop
                     for file-name being each hash-key of comp-async-compilations
                     for prc = (gethash file-name comp-async-compilations)
                     unless (process-live-p prc)
                       collect file-name)
   do (remhash file-name comp-async-compilations))
  (hash-table-count comp-async-compilations))