From d97d570d2c47d3a3cdf5d19c841e310042515438 Mon Sep 17 00:00:00 2001 From: "Eric S. Raymond" Date: Sat, 3 May 2008 13:16:19 +0000 Subject: [PATCH] Another refactoring step. --- lisp/vc.el | 19 +++++++------------ 1 file changed, 7 insertions(+), 12 deletions(-) diff --git a/lisp/vc.el b/lisp/vc.el index 6ac3f655f4b..4f9dfee7724 100644 --- a/lisp/vc.el +++ b/lisp/vc.el @@ -2050,14 +2050,6 @@ specific headers." '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 @@ U - if the cursor is on a file: unmark all the files with the same VC state (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. -- 2.11.4.GIT