Mercurial > emacs
changeset 95048:883c17cb4544
Add extra-headers method for SVN.
| author | Eric S. Raymond <esr@snark.thyrsus.com> |
|---|---|
| date | Fri, 16 May 2008 18:15:26 +0000 |
| parents | c02467eb5926 |
| children | 438808a998aa |
| files | lisp/ChangeLog lisp/vc-svn.el |
| diffstat | 2 files changed, 19 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Fri May 16 11:12:48 2008 +0000 +++ b/lisp/ChangeLog Fri May 16 18:15:26 2008 +0000 @@ -5,6 +5,8 @@ stale since 1995 and may now be actively misleading. * vc-cvs.el (vc-cvs-status-extra-headers): Extract and display the CVS repository. + * vc-svn.el (vc-svn-status-extra-headers): Extract and display the + SVN repository. 2008-05-16 Juanma Barranquero <lekktu@gmail.com>
--- a/lisp/vc-svn.el Fri May 16 11:12:48 2008 +0000 +++ b/lisp/vc-svn.el Fri May 16 18:15:26 2008 +0000 @@ -173,6 +173,23 @@ (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