Mercurial > emacs
comparison lisp/vc-sccs.el @ 94003:2ecb2ea8d5b5
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.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Fri, 11 Apr 2008 15:17:59 +0000 |
| parents | 112903000f93 |
| children | fad57210c7d2 |
comparison
equal
deleted
inserted
replaced
| 94002:bae1479690d4 | 94003:2ecb2ea8d5b5 |
|---|---|
| 143 ;; Fall through to real state computation. | 143 ;; Fall through to real state computation. |
| 144 (vc-sccs-state file)))) | 144 (vc-sccs-state file)))) |
| 145 (vc-sccs-state file))) | 145 (vc-sccs-state file))) |
| 146 | 146 |
| 147 ;; XXX Experimental function for the vc-dired replacement. | 147 ;; XXX Experimental function for the vc-dired replacement. |
| 148 (defun vc-sccs-dir-status (dir update-function status-buffer) | 148 (defun vc-sccs-dir-status (dir update-function) |
| 149 ;; XXX: quick hack, there should be a better way to do this, | 149 ;; XXX: quick hack, there should be a better way to do this, |
| 150 ;; but it's not worse than vc-dired :-). | 150 ;; but it's not worse than vc-dired :-). |
| 151 (let ((flist (vc-expand-dirs (list dir))) | 151 (let ((flist (vc-expand-dirs (list dir))) |
| 152 (result nil)) | 152 (result nil)) |
| 153 (dolist (file flist) | 153 (dolist (file flist) |
| 154 (let ((state (vc-state file)) | 154 (let ((state (vc-state file)) |
| 155 (frel (file-relative-name file))) | 155 (frel (file-relative-name file))) |
| 156 (push (list frel state) result))) | 156 (push (list frel state) result))) |
| 157 (funcall update-function result status-buffer))) | 157 (funcall update-function result))) |
| 158 | 158 |
| 159 (defun vc-sccs-working-revision (file) | 159 (defun vc-sccs-working-revision (file) |
| 160 "SCCS-specific version of `vc-working-revision'." | 160 "SCCS-specific version of `vc-working-revision'." |
| 161 (with-temp-buffer | 161 (with-temp-buffer |
| 162 ;; The working revision is always the latest revision number. | 162 ;; The working revision is always the latest revision number. |