From: Eric S. Raymond <esr@snark.thyrsus.com>
Date: Sat, 3 May 2008 12:42:54 +0000 (+0000)
Subject: Small refactoring step.
X-Git-Tag: emacs-pretest-23.0.90~5848
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f17e2043367787dfd4a2281cb08ed284ec2c665b;p=emacs.git

Small refactoring step.
---

diff --git a/lisp/vc.el b/lisp/vc.el
index e1d00d59d59..09966322933 100644
--- a/lisp/vc.el
+++ b/lisp/vc.el
@@ -2054,6 +2054,10 @@ specific headers."
   (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 @@ U - if the cursor is on a file: unmark all the files with the same VC state
   (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.