Mercurial > emacs

comparison lisp/vc-hg.el @ 98492:b3eefcc54430

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(vc-hg-dir-status-files): New function.
author Dan Nicolaescu <dann@ics.uci.edu>
date Fri, 03 Oct 2008 19:04:29 +0000
parents 0197baf37347
children b0dce7f34dda
comparison
equal deleted inserted replaced
98491:29005e3eddab 98492:b3eefcc54430
40 ;; * revision-granularity OK 40 ;; * revision-granularity OK
41 ;; STATE-QUERYING FUNCTIONS 41 ;; STATE-QUERYING FUNCTIONS
42 ;; * registered (file) OK 42 ;; * registered (file) OK
43 ;; * state (file) OK 43 ;; * state (file) OK
44 ;; - state-heuristic (file) NOT NEEDED 44 ;; - state-heuristic (file) NOT NEEDED
45 ;; - dir-status (dir update-function) OK
46 ;; - dir-status-files (dir files ds uf) OK
47 ;; - status-extra-headers (dir) OK
48 ;; - status-printer (fileinfo) OK
45 ;; * working-revision (file) OK 49 ;; * working-revision (file) OK
46 ;; - latest-on-branch-p (file) ?? 50 ;; - latest-on-branch-p (file) ??
47 ;; * checkout-model (files) OK 51 ;; * checkout-model (files) OK
48 ;; - workfile-unchanged-p (file) OK 52 ;; - workfile-unchanged-p (file) OK
49 ;; - mode-line-string (file) NOT NEEDED 53 ;; - mode-line-string (file) NOT NEEDED
50 ;; - prettify-state-info (file) OK
51 ;; STATE-CHANGING FUNCTIONS 54 ;; STATE-CHANGING FUNCTIONS
52 ;; * register (files &optional rev comment) OK 55 ;; * register (files &optional rev comment) OK
53 ;; * create-repo () OK 56 ;; * create-repo () OK
54 ;; - init-revision () NOT NEEDED 57 ;; - init-revision () NOT NEEDED
55 ;; - responsible-p (file) OK 58 ;; - responsible-p (file) OK
497 (defun vc-hg-dir-status (dir update-function) 500 (defun vc-hg-dir-status (dir update-function)
498 (vc-hg-command (current-buffer) 'async dir "status" "-C") 501 (vc-hg-command (current-buffer) 'async dir "status" "-C")
499 (vc-exec-after 502 (vc-exec-after
500 `(vc-hg-after-dir-status (quote ,update-function)))) 503 `(vc-hg-after-dir-status (quote ,update-function))))
501 504
505 (defun vc-hg-dir-status-files (dir files default-state update-function)
506 (apply 'vc-hg-command (current-buffer) 'async dir "status" "-C" files)
507 (vc-exec-after
508 `(vc-hg-after-dir-status (quote ,update-function))))
509
502 (defun vc-hg-status-extra-header (name &rest commands) 510 (defun vc-hg-status-extra-header (name &rest commands)
503 (concat (propertize name 'face 'font-lock-type-face) 511 (concat (propertize name 'face 'font-lock-type-face)
504 (propertize 512 (propertize
505 (with-temp-buffer 513 (with-temp-buffer
506 (apply 'vc-hg-command (current-buffer) 0 nil commands) 514 (apply 'vc-hg-command (current-buffer) 0 nil commands)