diff options
| author | Dan Nicolaescu <dann@ics.uci.edu> | 2008-10-03 06:09:30 +0000 |
|---|---|---|
| committer | Dan Nicolaescu <dann@ics.uci.edu> | 2008-10-03 06:09:30 +0000 |
| commit | 7aaf911c40a5e8cbf201d492fc0505c6677887da (patch) | |
| tree | c7e8b44d7623b44f4bdea6ae8dbcf55a54d44092 /lisp/vc-dir.el | |
| parent | 9091f2d335d153b71b0102c9524934eb912e30f1 (diff) | |
| download | emacs-7aaf911c40a5e8cbf201d492fc0505c6677887da.tar.gz | |
(vc-dir-mode): Don't create the ewoc header here.
(vc-dir-refresh): Set it here instead. (Bug#1067)
Diffstat (limited to 'lisp/vc-dir.el')
| -rw-r--r-- | lisp/vc-dir.el | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/lisp/vc-dir.el b/lisp/vc-dir.el index 87c0ce3ef90..d7ae86e079e 100644 --- a/lisp/vc-dir.el +++ b/lisp/vc-dir.el @@ -912,9 +912,7 @@ commands act on the files in those directories displayed in the (let ((buffer-read-only nil)) (erase-buffer) (set (make-local-variable 'vc-dir-process-buffer) nil) - (set (make-local-variable 'vc-ewoc) - (ewoc-create #'vc-dir-status-printer - (vc-dir-headers vc-dir-backend default-directory))) + (set (make-local-variable 'vc-ewoc) (ewoc-create #'vc-dir-status-printer)) (set (make-local-variable 'revert-buffer-function) 'vc-dir-revert-buffer-function) (set (make-local-variable 'list-buffers-directory) @@ -1032,7 +1030,8 @@ Throw an error if another update process is in progress." (vc-dir-refresh-files (mapcar 'vc-dir-fileinfo->name remaining) 'up-to-date) - (setq mode-line-process nil)))))))))))) + (setq mode-line-process nil))))))))) + (ewoc-set-hf vc-ewoc (vc-dir-headers backend def-dir) "")))) (defun vc-dir-show-fileentry (file) "Insert an entry for a specific file into the current *VC-dir* listing. |