Mercurial > emacs
diff lisp/vc-bzr.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 | c53b75d15c27 |
children | 34110d646fc8 |
line wrap: on
line diff
--- a/lisp/vc-bzr.el Fri Apr 11 13:34:14 2008 +0000 +++ b/lisp/vc-bzr.el Fri Apr 11 15:17:59 2008 +0000 @@ -658,7 +658,7 @@ (vc-default-dired-state-info 'Bzr file))) ;; XXX: this needs testing, it's probably incomplete. -(defun vc-bzr-after-dir-status (update-function status-buffer) +(defun vc-bzr-after-dir-status (update-function) (let ((status-str nil) (file nil) (translation '(("+N" . added) @@ -693,16 +693,16 @@ (line-end-position)) translated) result)) (forward-line)) - (funcall update-function result status-buffer))) + (funcall update-function result))) ;; XXX Experimental function for the vc-dired replacement. ;; XXX This probably needs some further refinement and testing. -(defun vc-bzr-dir-status (dir update-function status-buffer) +(defun vc-bzr-dir-status (dir update-function) "Return a list of conses (file . state) for DIR." ;; XXX: Is this the right command to use? (vc-bzr-command "status" (current-buffer) 'async dir "-v" "-S") (vc-exec-after - `(vc-bzr-after-dir-status (quote ,update-function) ,status-buffer))) + `(vc-bzr-after-dir-status (quote ,update-function)))) ;;; Revision completion