Commit 3036594f authored by Richard M. Stallman's avatar Richard M. Stallman

(lock_file): gcpro `fn'.

parent 35d63725
......@@ -384,11 +384,17 @@ lock_file (fn)
visited. */
{
register Lisp_Object subject_buf;
struct gcpro1;
subject_buf = get_truename_buffer (orig_fn);
GCPRO1 (fn);
if (!NILP (subject_buf)
&& NILP (Fverify_visited_file_modtime (subject_buf))
&& !NILP (Ffile_exists_p (fn)))
call1 (intern ("ask-user-about-supersession-threat"), fn);
UNGCPRO;
}
/* Try to lock the lock. */
......
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