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

(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);
/* 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