vc-dir: ensure we don't use a pager with git
* lisp/vc/vc-git.el (vc-git--call): Call git with '--no-pager' to avoid hangs caused by remote pager settings (Bug#38688).
This commit is contained in:
parent
37e0d00c14
commit
0ed9cfa7dc
1 changed files with 1 additions and 2 deletions
|
@ -1785,13 +1785,12 @@ The difference to vc-do-command is that this function always invokes
|
|||
(process-environment
|
||||
(append
|
||||
`("GIT_DIR"
|
||||
"PAGER="
|
||||
;; Avoid repository locking during background operations
|
||||
;; (bug#21559).
|
||||
,@(when revert-buffer-in-progress-p
|
||||
'("GIT_OPTIONAL_LOCKS=0")))
|
||||
process-environment)))
|
||||
(apply 'process-file vc-git-program nil buffer nil command args)))
|
||||
(apply 'process-file vc-git-program nil buffer nil "--no-pager" command args)))
|
||||
|
||||
(defun vc-git--out-ok (command &rest args)
|
||||
(zerop (apply 'vc-git--call '(t nil) command args)))
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue