[Emacs-diffs] Changes to emacs/lisp/vc.el,v

[Eric S. Raymond]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Eric S. Raymond <esr>   08/05/03 12:42:54

Index: vc.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/vc.el,v
retrieving revision 1.623
retrieving revision 1.624
diff -u -b -r1.623 -r1.624
--- vc.el       3 May 2008 12:06:42 -0000       1.623
+++ vc.el       3 May 2008 12:42:54 -0000       1.624
@@ -2054,6 +2054,10 @@
   (let ((backend (vc-responsible-backend default-directory)))
     (vc-call-backend backend 'status-printer fileentry)))
 
+(defun vc-dir-header-maker ()
+  (let ((backend (vc-responsible-backend default-directory)))
+    (vc-dir-headers backend default-directory)))
+
 (defun vc-default-extra-status-menu (backend)
   nil)
 
@@ -2084,13 +2088,12 @@
   (use-local-map vc-dir-mode-map)
   (set (make-local-variable 'tool-bar-map) vc-dir-tool-bar-map)
   (let ((buffer-read-only nil)
-       (backend (vc-responsible-backend default-directory))
        entries)
     (erase-buffer)
     (set (make-local-variable 'vc-dir-process-buffer) nil)
     (set (make-local-variable 'vc-ewoc)
         (ewoc-create #'vc-dir-printer
-                     (vc-dir-headers backend default-directory)))
+                     #'vc-dir-header-maker))
     (add-hook 'after-save-hook 'vc-dir-mark-buffer-changed)
     ;; Make sure that if the VC status buffer is killed, the update
     ;; process running in the background is also killed.