Commit d3163a3b authored by Lars Ingebrigtsen's avatar Lars Ingebrigtsen
Browse files

Make supersession warnings work again

* src/filelock.c (lock_file): Fix thinko in lock_file in 2ad34bce
(bug#49701).
parent 662f91a7
Pipeline #11540 failed with stages
in 1 minute and 43 seconds
...@@ -673,7 +673,7 @@ lock_file (Lisp_Object fn) ...@@ -673,7 +673,7 @@ lock_file (Lisp_Object fn)
Lisp_Object subject_buf = get_truename_buffer (fn); Lisp_Object subject_buf = get_truename_buffer (fn);
if (!NILP (subject_buf) if (!NILP (subject_buf)
&& NILP (Fverify_visited_file_modtime (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) && current_lock_owner (NULL, lfname) != -2)
call1 (intern ("userlock--ask-user-about-supersession-threat"), fn); call1 (intern ("userlock--ask-user-about-supersession-threat"), fn);
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment