[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 13:16:20

Index: vc.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/vc.el,v
retrieving revision 1.625
retrieving revision 1.626
diff -u -b -r1.625 -r1.626
--- vc.el       3 May 2008 13:07:18 -0000       1.625
+++ vc.el       3 May 2008 13:16:19 -0000       1.626
@@ -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
+    (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)))
+                  #'vc-dir-refresh))))
 
 ;; This is used to that VC backends could add backend specific menu
 ;; items to vc-dir-menu-map.