From 3036594f2ac4967e7c89efaec9fcba574eefdf30 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Wed, 29 Apr 1998 00:28:28 +0000 Subject: [PATCH] (lock_file): gcpro `fn'. --- src/filelock.c | 6 ++++++ 1 file changed, 6 insertions(+) diff --git a/src/filelock.c b/src/filelock.c index 7da65d0dc56..d8e30acc9d5 100644 --- a/src/filelock.c +++ b/src/filelock.c @@ -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. */ -- 2.39.2