From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Fri, 23 Jul 2021 09:49:13 +0000 (+0200)
Subject: Make supersession warnings work again
X-Git-Tag: emacs-28.0.90~1750
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d3163a3b8fa455a7a0d5b6122c0fc9f3f9a59fbd;p=emacs.git

Make supersession warnings work again

* src/filelock.c (lock_file): Fix thinko in lock_file in 2ad34bcea4e
(bug#49701).
---

diff --git a/src/filelock.c b/src/filelock.c
index 106633f5846..cc185d96cdf 100644
--- a/src/filelock.c
+++ b/src/filelock.c
@@ -673,7 +673,7 @@ lock_file (Lisp_Object fn)
   Lisp_Object subject_buf = get_truename_buffer (fn);
   if (!NILP (subject_buf)
       && NILP (Fverify_visited_file_modtime (subject_buf))
-      && !NILP (Ffile_exists_p (lock_filename))
+      && !NILP (Ffile_exists_p (fn))
       && current_lock_owner (NULL, lfname) != -2)
     call1 (intern ("userlock--ask-user-about-supersession-threat"), fn);