diff options
author | Eric S. Raymond <[email protected]> | 2008-05-03 12:42:54 +0000 |
---|---|---|
committer | Eric S. Raymond <[email protected]> | 2008-05-03 12:42:54 +0000 |
commit | f17e2043367787dfd4a2281cb08ed284ec2c665b (patch) | |
tree | 3da112f5972cbe09547595c0d1bde24ab562b4a6 /lisp | |
parent | d99d06ece0d8c277d889d49536d916d960c00ff9 (diff) |
Small refactoring step.
Diffstat (limited to 'lisp')
-rw-r--r-- | lisp/vc.el | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/lisp/vc.el b/lisp/vc.el index e1d00d59d5..0996632293 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. |