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-sccs.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-sccs.el')
| -rw-r--r-- | lisp/vc-sccs.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/vc-sccs.el b/lisp/vc-sccs.el index 22b73104d34..d2288d0da6d 100644 --- a/lisp/vc-sccs.el +++ b/lisp/vc-sccs.el @@ -145,7 +145,7 @@ For a description of possible values, see `vc-check-master-templates'." (vc-sccs-state file))) ;; XXX Experimental function for the vc-dired replacement. -(defun vc-sccs-dir-status (dir update-function status-buffer) +(defun vc-sccs-dir-status (dir update-function) ;; XXX: quick hack, there should be a better way to do this, ;; but it's not worse than vc-dired :-). (let ((flist (vc-expand-dirs (list dir))) @@ -154,7 +154,7 @@ For a description of possible values, see `vc-check-master-templates'." (let ((state (vc-state file)) (frel (file-relative-name file))) (push (list frel state) result))) - (funcall update-function result status-buffer))) + (funcall update-function result))) (defun vc-sccs-working-revision (file) "SCCS-specific version of `vc-working-revision'." |