Mercurial > emacs

changeset 94588:5511b69db00e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Another refactoring step.
author Eric S. Raymond <esr@snark.thyrsus.com>
date Sat, 03 May 2008 13:16:19 +0000
parents 42d33dc32553
children d97320b13374
files lisp/vc.el
diffstat 1 files changed, 7 insertions(+), 12 deletions(-) [+]
line wrap: on
line diff
--- 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.