# HG changeset patch
# User Eric S. Raymond <esr@snark.thyrsus.com>
# Date 1209820579 0
# Node ID 5511b69db00e7675222690fc59e067c41e2e640f
# Parent  42d33dc3255364dfb2877c9fd9041a1382563e34
Another refactoring step.

diff -r 42d33dc32553 -r 5511b69db00e lisp/vc.el
--- a/lisp/vc.el	Sat May 03 13:07:18 2008 +0000
+++ b/lisp/vc.el	Sat May 03 13:16:19 2008 +0000
@@ -2050,14 +2050,6 @@
       'face 'font-lock-function-name-face
       'mouse-face 'highlight))))
 
-(defun vc-dir-printer (fileentry)
-  (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)
 
@@ -2110,10 +2102,13 @@
   (pop-to-buffer (vc-dir-prepare-status-buffer dir))
   (if (eq major-mode 'vc-dir-mode)
       (vc-dir-refresh)
-    (vc-dir-mode #'vc-dir-printer
-		 #'vc-dir-header-maker
-		 #'vc-dir-mark-buffer-changed
-		 #'vc-dir-refresh)))
+    (let ((backend (vc-responsible-backend default-directory)))
+      (vc-dir-mode (lambda (fileentry)
+		     (vc-call-backend backend 'status-printer fileentry))
+		   (lambda (dir)
+		     (vc-dir-headers backend default-directory))
+		   #'vc-dir-mark-buffer-changed
+		   #'vc-dir-refresh))))
 
 ;; This is used to that VC backends could add backend specific menu
 ;; items to vc-dir-menu-map.