Mercurial > emacs
changeset 98492:b3eefcc54430
(vc-hg-dir-status-files): New function.
| author | Dan Nicolaescu <dann@ics.uci.edu> |
|---|---|
| date | Fri, 03 Oct 2008 19:04:29 +0000 |
| parents | 29005e3eddab |
| children | 5ae86f92711d |
| files | lisp/ChangeLog lisp/vc-hg.el |
| diffstat | 2 files changed, 13 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Fri Oct 03 18:43:29 2008 +0000 +++ b/lisp/ChangeLog Fri Oct 03 19:04:29 2008 +0000 @@ -1,3 +1,7 @@ +2008-10-03 Dan Nicolaescu <dann@ics.uci.edu> + + * vc-hg.el (vc-hg-dir-status-files): New function. + 2008-10-03 Martin Rudalics <rudalics@gmx.at> * window.el (window--display-buffer-1): Don't care about
--- a/lisp/vc-hg.el Fri Oct 03 18:43:29 2008 +0000 +++ b/lisp/vc-hg.el Fri Oct 03 19:04:29 2008 +0000 @@ -42,12 +42,15 @@ ;; * registered (file) OK ;; * state (file) OK ;; - state-heuristic (file) NOT NEEDED +;; - dir-status (dir update-function) OK +;; - dir-status-files (dir files ds uf) OK +;; - status-extra-headers (dir) OK +;; - status-printer (fileinfo) OK ;; * working-revision (file) OK ;; - latest-on-branch-p (file) ?? ;; * checkout-model (files) OK ;; - workfile-unchanged-p (file) OK ;; - mode-line-string (file) NOT NEEDED -;; - prettify-state-info (file) OK ;; STATE-CHANGING FUNCTIONS ;; * register (files &optional rev comment) OK ;; * create-repo () OK @@ -499,6 +502,11 @@ (vc-exec-after `(vc-hg-after-dir-status (quote ,update-function)))) +(defun vc-hg-dir-status-files (dir files default-state update-function) + (apply 'vc-hg-command (current-buffer) 'async dir "status" "-C" files) + (vc-exec-after + `(vc-hg-after-dir-status (quote ,update-function)))) + (defun vc-hg-status-extra-header (name &rest commands) (concat (propertize name 'face 'font-lock-type-face) (propertize