Function: vc-arch-mode-line-string

vc-arch-mode-line-string is a byte-compiled function defined in vc-arch.el.gz.

Signature

(vc-arch-mode-line-string FILE)

Documentation

Return a string for vc-mode-line to put in the mode line for FILE.

Source Code

;; Defined in /usr/src/emacs/lisp/obsolete/vc-arch.el.gz
(defun vc-arch-mode-line-string (file)
  "Return a string for `vc-mode-line' to put in the mode line for FILE."
  (let ((rev (vc-working-revision file)))
    (dolist (rule vc-arch-mode-line-rewrite)
      (if (string-match (car rule) rev)
	  (setq rev (replace-match (cdr rule) t nil rev))))
    (format "Arch%c%s"
	    (pcase (vc-state file)
	      ((or 'up-to-date 'needs-update) ?-)
	      ('added ?@)
	      (_ ?:))
	    rev)))