Mercurial > emacs
changeset 98471:497018549116
(vc-dir-mode): Don't create the ewoc header here.
(vc-dir-refresh): Set it here instead. (Bug#1067)
| author | Dan Nicolaescu <dann@ics.uci.edu> |
|---|---|
| date | Fri, 03 Oct 2008 06:09:30 +0000 |
| parents | be0cd2e19e84 |
| children | cbc542a48bb0 |
| files | lisp/ChangeLog lisp/vc-dir.el |
| diffstat | 2 files changed, 8 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Fri Oct 03 04:18:56 2008 +0000 +++ b/lisp/ChangeLog Fri Oct 03 06:09:30 2008 +0000 @@ -1,3 +1,8 @@ +2008-10-03 Dan Nicolaescu <dann@ics.uci.edu> + + * vc-dir.el (vc-dir-mode): Don't create the ewoc header here. + (vc-dir-refresh): Set it here instead. (Bug#1067) + 2008-10-02 Chong Yidong <cyd@stupidchicken.com> * faces.el (inhibit-frame-set-background-mode): New var.
--- a/lisp/vc-dir.el Fri Oct 03 04:18:56 2008 +0000 +++ b/lisp/vc-dir.el Fri Oct 03 06:09:30 2008 +0000 @@ -912,9 +912,7 @@ (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 @@ (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.