Prioritize looking inside vc-parent-buffer over log-view-mode fallback
* lisp/vc/vc.el (vc-deduce-fileset): Prioritize looking inside vc-parent-buffer over log-view-mode fallback (bug#21955).
This commit is contained in:
parent
e8bbdc4665
commit
3c5989da74
1 changed files with 3 additions and 3 deletions
|
@ -1026,9 +1026,6 @@ BEWARE: this function may change the current buffer."
|
|||
(if observer
|
||||
(vc-dired-deduce-fileset)
|
||||
(error "State changing VC operations not supported in `dired-mode'")))
|
||||
((and (derived-mode-p 'log-view-mode)
|
||||
(setq backend (vc-responsible-backend default-directory)))
|
||||
(list backend default-directory))
|
||||
((setq backend (vc-backend buffer-file-name))
|
||||
(if state-model-only-files
|
||||
(list backend (list buffer-file-name)
|
||||
|
@ -1044,6 +1041,9 @@ BEWARE: this function may change the current buffer."
|
|||
(progn ;FIXME: Why not `with-current-buffer'? --Stef.
|
||||
(set-buffer vc-parent-buffer)
|
||||
(vc-deduce-fileset observer allow-unregistered state-model-only-files)))
|
||||
((and (derived-mode-p 'log-view-mode)
|
||||
(setq backend (vc-responsible-backend default-directory)))
|
||||
(list backend nil))
|
||||
((not buffer-file-name)
|
||||
(error "Buffer %s is not associated with a file" (buffer-name)))
|
||||
((and allow-unregistered (not (vc-registered buffer-file-name)))
|
||||
|
|
Loading…
Add table
Reference in a new issue