GNU bug report logs - #2964
vc-dir support for vc-mtn.el

Previous Next

Full log

View this message in rfc822 format

From: help-debbugs <at> gnu.org (Emacs bug Tracking System)
To: Dan Nicolaescu <dann <at> ics.uci.edu>
Subject: bug#2964 closed by Dan Nicolaescu <dann <at> ics.uci.edu> (Re:
 bug#2964: vc-dir support for vc-mtn.el)
Date: Wed, 26 Aug 2009 18:40:09 +0000

[Message part 1 (text/plain, inline)]

This is an automatic notification regarding your bug report
which was filed against the emacs package:

#2964: vc-dir support for vc-mtn.el

It has been closed by Dan Nicolaescu <dann <at> ics.uci.edu>.

Their explanation is attached below along with your original report.
If this explanation is unsatisfactory and you have not received a
better one in a separate message then please contact Dan Nicolaescu <dann <at> ics.uci.edu> by
replying to this email.


-- 
2964: http://debbugs.gnu.org/cgi/bugreport.cgi?bug=2964
Emacs Bug Tracking System
Contact help-debbugs <at> gnu.org with problems

[Message part 2 (message/rfc822, inline)]

From: Dan Nicolaescu <dann <at> ics.uci.edu>
To: 2964-done <at> debbugs.gnu.org
Subject: Re: bug#2964: vc-dir support for vc-mtn.el
Date: Wed, 26 Aug 2009 11:35:22 -0700 (PDT)

Closing, the patch has been checked in a while ago.

[Message part 3 (message/rfc822, inline)]

From: Dan Nicolaescu <dann <at> ics.uci.edu>
To: bug-gnu-emacs <bug-gnu-emacs <at> gnu.org>
Subject: vc-dir support for vc-mtn.el
Date: Sat, 11 Apr 2009 08:31:48 -0700 (PDT)

vc-mtn.el does not support vc-dir.

The patch below adds that support.  It reuses some regexps from elsewhere in the file.
Archiving here so that it can be applied whenever it's acceptable.

Index: vc-mtn.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/vc-mtn.el,v
retrieving revision 1.23
diff -u -3 -p -c -r1.23 vc-mtn.el
cvs diff: conflicting specifications of output style
*** vc-mtn.el         1 Apr 2009 20:01:19 -0000 1.23
--- vc-mtn.el         11 Apr 2009 07:44:39 -0000
*************** If nil, use the value of `vc-diff-switch
*** 106,111 ****
--- 106,126 ----
         ((match-end 2) 'added)
              (t 'up-to-date)))))
  
+ (defun vc-mtn-after-dir-status (update-function)
+   (let (result)
+     (goto-char (point-min))
+     (re-search-forward "Current branch: \\(.*\\)\nChanges against parent \\(.*\\)" nil t)
+     (while (re-search-forward
+         "^  \\(?:\\(patched  \\)\\|\\(added    \\)\\)\\(.*\\)$" nil t)
+       (cond  ((match-end 1) (push (list (match-string 3) 'edited) result))
+            ((match-end 2) (push (list (match-string 3) 'added) result))))
+     (funcall update-function result)))
+ 
+ (defun vc-mtn-dir-status (dir update-function)
+   (vc-mtn-command (current-buffer) 'async dir "status")
+   (vc-exec-after
+    `(vc-mtn-after-dir-status (quote ,update-function))))
+ 
  (defun vc-mtn-working-revision (file)
    ;; If `mtn' fails or returns status>0, or if the search fails, just
    ;; return nil.

Previous Next

GNU bug tracking system
Copyright (C) 1999 Darren O. Benham, 1997,2003 nCipher Corporation Ltd, 1994-97 Ian Jackson.