From: Dan Nicolaescu Date: Fri, 3 Oct 2008 19:04:29 +0000 (+0000) Subject: (vc-hg-dir-status-files): New function. X-Git-Tag: emacs-pretest-23.0.90~2662 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a779ddf0ce751303a4f8cbcd660e9f761fadea66;p=emacs.git (vc-hg-dir-status-files): New function. --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index fa3ddedffff..c4f4fdb664c 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2008-10-03 Dan Nicolaescu + + * vc-hg.el (vc-hg-dir-status-files): New function. + 2008-10-03 Martin Rudalics * window.el (window--display-buffer-1): Don't care about diff --git a/lisp/vc-hg.el b/lisp/vc-hg.el index 60d6fce2717..bfc4846a5d6 100644 --- a/lisp/vc-hg.el +++ b/lisp/vc-hg.el @@ -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 @@ REV is the revision to check out into WORKFILE." (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