Function: vc-dir--set-header

vc-dir--set-header is a byte-compiled function defined in vc-dir.el.gz.

Signature

(vc-dir--set-header DEF-DIR &optional RESET-FOOTER)

Source Code

;; Defined in /usr/src/emacs/lisp/vc/vc-dir.el.gz
(defun vc-dir--set-header (def-dir &optional reset-footer)
  (ewoc-set-hf vc-ewoc
               (vc-dir-headers vc-dir-backend def-dir)
               (and reset-footer ""))
  ;; Clear overlays in the header from the last run.
  (dolist (overlay (overlays-in (point-min)
                                (length (car (ewoc-get-hf vc-ewoc)))))
    (when-let* ((proc (overlay-get overlay 'proc))
                (_ (eq 'run (process-status proc))))
      (kill-process proc))
    (when-let* ((timer (overlay-get overlay 'timer)))
      (cancel-timer timer))
    (delete-overlay overlay))
  ;; Set up new async header overlays.
  (save-excursion
    (pcase-dolist (`(,field . ,fun) vc-dir-async-header-values)
      (goto-char (point-min))
      (when (re-search-forward (format "^%s\\s-" field) nil t)
        (funcall fun vc-dir-backend
                 (make-overlay (pos-eol) (pos-eol)))))))