From 05539fb32aabb9bf531b70b0ea549314e2446370 Mon Sep 17 00:00:00 2001 From: Richard Levitte Date: Mon, 8 Nov 2010 13:42:24 -0500 Subject: * lisp/vc-mtn.el (vc-mtn-working-revision, vc-mtn-after-dir-status) (vc-mtn-workfile-branch): Adjust to new output format. --- lisp/ChangeLog | 5 +++++ lisp/vc-mtn.el | 6 +++--- 2 files changed, 8 insertions(+), 3 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index f90ebef6972..45066263c5e 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2010-11-08 Richard Levitte (tiny patch) + + * vc-mtn.el (vc-mtn-working-revision, vc-mtn-after-dir-status) + (vc-mtn-workfile-branch): Adjust to new output format. + 2010-11-08 Stefan Monnier * international/mule-cmds.el (princ-list): Mark as obsolete. diff --git a/lisp/vc-mtn.el b/lisp/vc-mtn.el index aa90fdabc87..f89b6a34d21 100644 --- a/lisp/vc-mtn.el +++ b/lisp/vc-mtn.el @@ -109,7 +109,7 @@ If nil, use the value of `vc-diff-switches'. If t, use no switches." (defun vc-mtn-after-dir-status (update-function) (let (result) (goto-char (point-min)) - (re-search-forward "Current branch: \\(.*\\)\nChanges against parent \\(.*\\)" nil t) + (re-search-forward "\\(?:Current b\\|B\\)ranch: *\\(.*\\)\n?\nChanges against parent \\(.*\\)" nil t) (while (re-search-forward "^ \\(?:\\(patched \\)\\|\\(added \\)\\)\\(.*\\)$" nil t) (cond ((match-end 1) (push (list (match-string 3) 'edited) result)) @@ -128,7 +128,7 @@ If nil, use the value of `vc-diff-switches'. If t, use no switches." (with-temp-buffer (vc-mtn-command t 0 file "status") (goto-char (point-min)) - (re-search-forward "Current branch: \\(.*\\)\nChanges against parent \\(.*\\)") + (re-search-forward "\\(?:Current b\\|B\\)ranch: *\\(.*\\)\n?\nChanges against parent \\(.*\\)") (match-string 2)))) (defun vc-mtn-workfile-branch (file) @@ -138,7 +138,7 @@ If nil, use the value of `vc-diff-switches'. If t, use no switches." (with-temp-buffer (vc-mtn-command t 0 file "status") (goto-char (point-min)) - (re-search-forward "Current branch: \\(.*\\)\nChanges against parent \\(.*\\)") + (re-search-forward "\\(?:Current b\\|B\\)ranch: *\\(.*\\)\n?\nChanges against parent \\(.*\\)") (match-string 1)))) (defun vc-mtn-workfile-unchanged-p (file) -- cgit v1.2.1