[Emacs-diffs] master cb55cca: Fix for: "25.0.50; auto-revert-mode breaks git rebase" (Bug#21559)

[Michael Albinus]

branch: master
commit cb55ccae8be946f1562d74718086a4c8c8308ee5
Author: Alexei Khlebnikov <address@hidden>
Commit: Michael Albinus <address@hidden>

    Fix for: "25.0.50; auto-revert-mode breaks git rebase" (Bug#21559)
    
    * lisp/autorevert.el (auto-revert-handler):
    Set "revert-buffer-in-progress-p" flag before calling
    "vc-refresh-state".
    
    * lisp/vc/vc-git.el (vc-git-command):
    If "revert-buffer-in-progress-p" flag is set, prepend
    "GIT_OPTIONAL_LOCKS=0" to "process-environment".  (Bug#21559)
---
 lisp/autorevert.el | 3 ++-
 lisp/vc/vc-git.el  | 9 ++++++++-
 2 files changed, 10 insertions(+), 2 deletions(-)

diff --git a/lisp/autorevert.el b/lisp/autorevert.el
index cf145e0..0a9d3be 100644
--- a/lisp/autorevert.el
+++ b/lisp/autorevert.el
@@ -709,7 +709,8 @@ This is an internal function used by Auto-Revert Mode."
     ;; `preserve-modes' avoids changing the (minor) modes.  But we do
     ;; want to reset the mode for VC, so we do it manually.
     (when (or revert auto-revert-check-vc-info)
-      (vc-refresh-state))))
+      (let ((revert-buffer-in-progress-p t))
+        (vc-refresh-state)))))
 
 (defun auto-revert-tail-handler (size)
   (let ((modified (buffer-modified-p))
diff --git a/lisp/vc/vc-git.el b/lisp/vc/vc-git.el
index 26af998..163333a 100644
--- a/lisp/vc/vc-git.el
+++ b/lisp/vc/vc-git.el
@@ -1569,7 +1569,14 @@ 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 "GIT_DIR" process-environment)))
+        (process-environment
+         (append
+          `("GIT_DIR"
+            ;; Avoid repository locking during background operations
+            ;; (bug#21559).
+            ,@(when revert-buffer-in-progress-p
+                '("GIT_OPTIONAL_LOCKS=0")))
+          process-environment)))
     (apply 'vc-do-command (or buffer "*vc*") okstatus vc-git-program
           ;; https://debbugs.gnu.org/16897
           (unless (and (not (cdr-safe file-or-list))