Mercurial > emacs
comparison lisp/vc-rcs.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 | 520490ae1b9a |
| children | ad6c174910db |
comparison
equal
deleted
inserted
replaced
| 94002:bae1479690d4 | 94003:2ecb2ea8d5b5 |
|---|---|
| 180 ;; expensive state computation. | 180 ;; expensive state computation. |
| 181 (vc-rcs-state file)))) | 181 (vc-rcs-state file)))) |
| 182 (vc-rcs-state file))))) | 182 (vc-rcs-state file))))) |
| 183 | 183 |
| 184 ;; XXX Experimental function for the vc-dired replacement. | 184 ;; XXX Experimental function for the vc-dired replacement. |
| 185 (defun vc-rcs-dir-status (dir update-function status-buffer) | 185 (defun vc-rcs-dir-status (dir update-function) |
| 186 ;; XXX: quick hack, there should be a better way to do this, | 186 ;; XXX: quick hack, there should be a better way to do this, |
| 187 ;; but it's not worse than vc-dired :-). | 187 ;; but it's not worse than vc-dired :-). |
| 188 (let ((flist (vc-expand-dirs (list dir))) | 188 (let ((flist (vc-expand-dirs (list dir))) |
| 189 (result nil)) | 189 (result nil)) |
| 190 (dolist (file flist) | 190 (dolist (file flist) |
| 191 (let ((state (vc-state file)) | 191 (let ((state (vc-state file)) |
| 192 (frel (file-relative-name file))) | 192 (frel (file-relative-name file))) |
| 193 (push (list frel state) result))) | 193 (push (list frel state) result))) |
| 194 (funcall update-function result status-buffer))) | 194 (funcall update-function result))) |
| 195 | 195 |
| 196 (defun vc-rcs-working-revision (file) | 196 (defun vc-rcs-working-revision (file) |
| 197 "RCS-specific version of `vc-working-revision'." | 197 "RCS-specific version of `vc-working-revision'." |
| 198 (or (and vc-consult-headers | 198 (or (and vc-consult-headers |
| 199 (vc-rcs-consult-headers file) | 199 (vc-rcs-consult-headers file) |