mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 18:40:39 -08:00
Code Issues Projects Releases Wiki Activity

(vc-hg-dir-status-files): New function.

Browse source
This commit is contained in:
Dan Nicolaescu 2008-10-03 19:04:29 +00:00
parent 8d87199ba0
commit a779ddf0ce
2 changed files with 13 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lisp/ChangeLog
View file

@ -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

10
lisp/vc-hg.el
View file

@ -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