From: Sean Whitton <spwhitton@spwhitton.name>
Date: Fri, 6 Jun 2025 10:47:10 +0000 (+0100)
Subject: Fix apparent thinko in vc-next-action
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=9b843f2d1f59dbb9b7565eb7465b80cdc6e97a8a;p=emacs.git

Fix apparent thinko in vc-next-action

* lisp/vc/vc.el (vc-next-action): Pass an argument to
buffer-modified-p because the loop does not set the current
buffer before calling that function.

(cherry picked from commit 8f85cf2ae93a089ea78f55915aa5f7c6776d3362)
---

diff --git a/lisp/vc/vc.el b/lisp/vc/vc.el
index c55b268867d..5c61f9b605b 100644
--- a/lisp/vc/vc.el
+++ b/lisp/vc/vc.el
@@ -1552,8 +1552,8 @@ from which to check out the file(s)."
 			 ;; said no to saving it; in that case, don't revert,
 			 ;; because the user might intend to save after
 			 ;; finishing the log entry and committing.
-			 (not (and visited (buffer-modified-p))))
-		(vc-revert-file file)
+			 (not (and visited (buffer-modified-p visited))))
+                (vc-revert-file file)
 		(setq ready-for-commit (delete file ready-for-commit))))))
 	;; Remaining files need to be committed
 	(if (not ready-for-commit)