From 0ed9cfa7dc6e6333c975aca904efa5d19cd47974 Mon Sep 17 00:00:00 2001 From: Robert Pluim Date: Fri, 10 Jan 2020 16:36:57 +0100 Subject: [PATCH] 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). --- lisp/vc/vc-git.el | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/lisp/vc/vc-git.el b/lisp/vc/vc-git.el index 000d860e835..61e6c642d1f 100644 --- a/lisp/vc/vc-git.el +++ b/lisp/vc/vc-git.el @@ -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))) -- 2.39.2