diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2008-04-11 15:17:59 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2008-04-11 15:17:59 +0000 |
| commit | c1b513745f93bee34f47901216db2f315b837b20 (patch) | |
| tree | 764bd2cda1f2db22703a0ba49101603b023a86fc /lisp/vc-hg.el | |
| parent | da5a7abbc428c5db1dd5660f61e76719e99b4ce1 (diff) | |
| download | emacs-c1b513745f93bee34f47901216db2f315b837b20.tar.gz | |
Change `dir-status' to not take (and pass) status-buffer.
(vc-status-create-fileinfo): Make `extra' optional.
(vc-status-busy): New fun.
(vc-status-menu-map): Use it.
(vc-status-crt-marked): Remove.
(vc-status-update): Rename from vc-status-add-entries.
Add argument so as to prevent addition of entries. Rewrite.
(vc-update-vc-status-buffer): Remove.
(vc-status-refresh): Don't remove old entries, set them to
up-to-date instead. Also do it after the update is complete.
(vc-status-marked-files): η-reduce.
Diffstat (limited to 'lisp/vc-hg.el')
| -rw-r--r-- | lisp/vc-hg.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/vc-hg.el b/lisp/vc-hg.el index 2a65691cb9d..c9cfc8eff61 100644 --- a/lisp/vc-hg.el +++ b/lisp/vc-hg.el @@ -475,7 +475,7 @@ REV is the revision to check out into WORKFILE." (define-derived-mode vc-hg-incoming-mode vc-hg-log-view-mode "Hg-Incoming") ;; XXX Experimental function for the vc-dired replacement. -(defun vc-hg-after-dir-status (update-function status-buffer) +(defun vc-hg-after-dir-status (update-function) (let ((status-char nil) (file nil) (translation '((?= . up-to-date) @@ -498,13 +498,13 @@ REV is the revision to check out into WORKFILE." (when (and translated (not (eq (cdr translated) 'up-to-date))) (push (list file (cdr translated)) result)) (forward-line)) - (funcall update-function result status-buffer))) + (funcall update-function result))) ;; XXX Experimental function for the vc-dired replacement. -(defun vc-hg-dir-status (dir update-function status-buffer) +(defun vc-hg-dir-status (dir update-function) (vc-hg-command (current-buffer) 'async dir "status") (vc-exec-after - `(vc-hg-after-dir-status (quote ,update-function) ,status-buffer))) + `(vc-hg-after-dir-status (quote ,update-function)))) ;; XXX this adds another top level menu, instead figure out how to ;; replace the Log-View menu. |