Mercurial > emacs
diff lisp/vc/vc.el @ 111517:275f265c56c5
* lisp/vc/vc.el (vc-deduce-backend): Use default-directory in shell-mode
and compilation-mode.
author | Stefan Monnier <monnier@iro.umontreal.ca> |
---|---|
date | Fri, 12 Nov 2010 08:44:46 -0500 |
parents | 2279efb0250e |
children | 33ed3cf8260b |
line wrap: on
line diff
--- a/lisp/vc/vc.el Fri Nov 12 08:35:36 2010 -0500 +++ b/lisp/vc/vc.el Fri Nov 12 08:44:46 2010 -0500 @@ -920,7 +920,8 @@ (cond ((derived-mode-p 'vc-dir-mode) vc-dir-backend) ((derived-mode-p 'log-view-mode) log-view-vc-backend) ((derived-mode-p 'diff-mode) diff-vc-backend) - ((derived-mode-p 'dired-mode) + ;; Maybe we could even use comint-mode rather than shell-mode? + ((derived-mode-p 'dired-mode 'shell-mode 'compilation-mode) (vc-responsible-backend default-directory)) (vc-mode (vc-backend buffer-file-name)))) @@ -986,7 +987,7 @@ (let ((backend (vc-responsible-backend default-directory))) (unless backend (error "Directory not under VC")) (list backend - (dired-map-over-marks (dired-get-filename nil t) nil)))) + (dired-map-over-marks (dired-get-filename nil t) nil)))) (defun vc-ensure-vc-buffer () "Make sure that the current buffer visits a version-controlled file."