Function: vc-git-dir--in-progress-headers

vc-git-dir--in-progress-headers is a byte-compiled function defined in vc-git.el.gz.

Signature

(vc-git-dir--in-progress-headers)

Documentation

Return headers for Git commands in progress in this worktree.

Source Code

;; Defined in /usr/src/emacs/lisp/vc/vc-git.el.gz
(defun vc-git-dir--in-progress-headers ()
  "Return headers for Git commands in progress in this worktree."
  (let ((cmds (vc-git--cmds-in-progress)))
    (cl-flet ((fmt (cmd name)
                (when (memq cmd cmds)
                  ;; For now just a heading, key bindings can be added
                  ;; later for various bisect actions.
                  (propertize (format "% -11s: in progress" name)
                              'face 'vc-dir-status-warning))))
      (remove nil (list (fmt 'bisect "Bisect")
                        (fmt 'rebase "Rebase"))))))