mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-14 07:20:35 -08:00
Code Issues Projects Releases Wiki Activity

Small refactoring step.

Browse source
This commit is contained in:
Eric S. Raymond 2008-05-03 12:42:54 +00:00
parent d99d06ece0
commit f17e204336
1 changed files with 5 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

7
lisp/vc.el
View file

@ -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.