[Emacs-diffs] master fd369be: Finish fix for Bug#21559

[Michael Albinus]

branch: master
commit fd369be7ebf08414f4c517c7c2e854ccb9d520bc
Author: Michael Albinus <address@hidden>
Commit: Michael Albinus <address@hidden>

    Finish fix for Bug#21559
    
    * lisp/vc/vc-git.el (vc-git--call):
    If `revert-buffer-in-progress-p' flag is set, prepend
    "GIT_OPTIONAL_LOCKS=0" to "process-environment".  (Bug#21559)
---
 lisp/vc/vc-git.el | 11 +++++++++--
 1 file changed, 9 insertions(+), 2 deletions(-)

diff --git a/lisp/vc/vc-git.el b/lisp/vc/vc-git.el
index 03afce5..4ea7ea5 100644
--- a/lisp/vc/vc-git.el
+++ b/lisp/vc/vc-git.el
@@ -1628,8 +1628,15 @@ The difference to vc-do-command is that this function 
always invokes
          (or coding-system-for-read vc-git-log-output-coding-system))
        (coding-system-for-write
          (or coding-system-for-write vc-git-commits-coding-system))
-       (process-environment (cons "PAGER=" process-environment)))
-    (push "GIT_DIR" process-environment)
+       (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)))
 
 (defun vc-git--out-ok (command &rest args)