# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 893809708 0
# Node ID af741167f81efcc7ebff21c27c479a5112bec8f8
# Parent  4dbf2af94988231d3e22c82599c5ec20a9281f77
(lock_file): gcpro `fn'.

diff -r 4dbf2af94988 -r af741167f81e src/filelock.c
--- a/src/filelock.c	Wed Apr 29 00:20:14 1998 +0000
+++ b/src/filelock.c	Wed Apr 29 00:28:28 1998 +0000
@@ -384,11 +384,17 @@
      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. */