bug-gnu-emacs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

bug#2964: marked as done (vc-dir support for vc-mtn.el)


From: Emacs bug Tracking System
Subject: bug#2964: marked as done (vc-dir support for vc-mtn.el)
Date: Wed, 26 Aug 2009 18:40:09 +0000

Your message dated Wed, 26 Aug 2009 11:35:22 -0700 (PDT)
with message-id <address@hidden>
and subject line Re: bug#2964: vc-dir support for vc-mtn.el
has caused the Emacs bug report #2964,
regarding vc-dir support for vc-mtn.el
to be marked as done.

This means that you claim that the problem has been dealt with.
If this is not the case it is now your responsibility to reopen the
bug report if necessary, and/or fix the problem forthwith.

(NB: If you are a system administrator and have no idea what this
message is talking about, this may indicate a serious mail system
misconfiguration somewhere. Please contact address@hidden
immediately.)


-- 
2964: http://emacsbugs.donarmstrong.com/cgi-bin/bugreport.cgi?bug=2964
Emacs Bug Tracking System
Contact address@hidden with problems
--- Begin Message --- 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.




--- End Message ---
--- Begin Message --- 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.

--- End Message ---

reply via email to

[Prev in Thread] Current Thread [Next in Thread]