Function: vc-dir-headers

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

Signature

(vc-dir-headers BACKEND DIR)

Documentation

Display the headers in the *VC-Dir* buffer.

It calls the dir-extra-headers backend method to display backend specific headers.

Source Code

;; Defined in /usr/src/emacs/lisp/vc/vc-dir.el.gz
(defun vc-dir-headers (backend dir)
  "Display the headers in the *VC-Dir* buffer.
It calls the `dir-extra-headers' backend method to display backend
specific headers."
  (concat
   (propertize "VC backend : " 'face 'vc-dir-header)
   (propertize (format "%s\n" backend) 'face 'vc-dir-header-value)
   (propertize "Working dir: " 'face 'vc-dir-header)
   (propertize (format "%s\n" (abbreviate-file-name dir))
               'face 'vc-dir-header-value)
   (vc-call-backend backend 'dir-extra-headers dir)
   "\n"
   (and-let* (vc-dir-show-outgoing-count
              (count (vc-dir--count-outgoing backend))
              (_ (plusp count)))
     (concat (propertize "Outgoing   : "
                         'face 'vc-dir-header)
             (propertize (format (ngettext "%d unpushed revision"
                                           "%d unpushed revisions"
                                           count)
                                 count)
                         'face 'vc-dir-header-urgent-value
                         'mouse-face 'highlight
                         'keymap vc-dir-outgoing-revisions-map
                         'help-echo "\\<vc-dir-outgoing-revisions-map>\
\\[vc-log-outgoing]: List outgoing revisions")
             "\n"))))