procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(vc-mtn-after-dir-status, vc-mtn-dir-status): New functions.

Browse source
This commit is contained in:
Dan Nicolaescu 2009-06-23 05:48:18 +00:00
parent b23bf85abc
commit f5a0b28161
2 changed files with 19 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lisp/ChangeLog
View file

@ -1,3 +1,7 @@
2009-06-22 Dan Nicolaescu <dann@ics.uci.edu>
* vc-mtn.el (vc-mtn-after-dir-status, vc-mtn-dir-status): New functions.
2009-06-23 Kenichi Handa <handa@m17n.org>
* language/korea-util.el (korean-key-bindings): Change the binding

15
lisp/vc-mtn.el
View file

@ -106,6 +106,21 @@ If nil, use the value of `vc-diff-switches'. If t, use no switches."
((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.