Function: vc-svn-dir-extra-headers

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

Signature

(vc-svn-dir-extra-headers DIR)

Documentation

Generate extra status headers for a Subversion working copy.

Source Code

;; Defined in /usr/src/emacs/lisp/vc/vc-svn.el.gz
(defun vc-svn-dir-extra-headers (_dir)
  "Generate extra status headers for a Subversion working copy."
  (let (process-file-side-effects)
    (vc-svn-command "*vc*" 0 nil "info"))
  (let ((repo
	 (save-excursion
	   (and (progn
		  (set-buffer "*vc*")
		  (goto-char (point-min))
		  (re-search-forward "Repository Root: *\\(.*\\)" nil t))
		(match-string 1)))))
    (concat
     (cond (repo
	    (concat
	     (propertize "Repository : " 'face 'vc-dir-header)
	     (propertize repo 'face 'vc-dir-header-value)))
	   (t "")))))