diff options
| author | Eric S. Raymond <esr@snark.thyrsus.com> | 2008-05-16 18:15:26 +0000 |
|---|---|---|
| committer | Eric S. Raymond <esr@snark.thyrsus.com> | 2008-05-16 18:15:26 +0000 |
| commit | 2ec0d864c1e39c8603a330bbca1684c6dc5d5a90 (patch) | |
| tree | 237ca930636c4256c6c6cc3608d29bd698193e80 /lisp/vc-svn.el | |
| parent | 1cab27d2547b15ad0f1054e09bc25a5b2e991369 (diff) | |
| download | emacs-2ec0d864c1e39c8603a330bbca1684c6dc5d5a90.tar.gz | |
Add extra-headers method for SVN.
Diffstat (limited to 'lisp/vc-svn.el')
| -rw-r--r-- | lisp/vc-svn.el | 17 |
1 files changed, 17 insertions, 0 deletions
diff --git a/lisp/vc-svn.el b/lisp/vc-svn.el index 0b0828ac23d..8a7c2b291f7 100644 --- a/lisp/vc-svn.el +++ b/lisp/vc-svn.el @@ -173,6 +173,23 @@ RESULT is a list of conses (FILE . STATE) for directory DIR." (vc-exec-after `(vc-svn-after-dir-status (quote ,callback)))) +(defun vc-svn-status-extra-headers (dir) + "Generate extra status headers for a Subversion working copy." + (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 'font-lock-type-face) + (propertize repo 'face 'font-lock-variable-name-face))) + (t ""))))) + (defun vc-svn-working-revision (file) "SVN-specific version of `vc-working-revision'." ;; There is no need to consult RCS headers under SVN, because we |