Commit ebff325e authored by Stefan Monnier's avatar Stefan Monnier
Browse files

* lisp/vc/vc.el (vc-deduce-backend): Use default-directory in shell-mode

and compilation-mode.

Fixes: debbugs:7350
parent 4e9e1584
2010-11-12 Stefan Monnier <>
* vc/vc.el (vc-deduce-backend): Use default-directory in shell-mode
and compilation-mode (bug#7350).
* vc/smerge-mode.el (smerge-refine): Choose better default part to
highlight when one of them is empty.
......@@ -920,7 +920,8 @@ Within directories, only files already under version control are noticed."
(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))))
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment