# HG changeset patch
# User Dave Love <fx@gnu.org>
# Date 939835079 0
# Node ID ca384fd94454d04009904a0b9c721c06e087ef97
# Parent  6613b383566670a1cb0f57e15f1f07f9098f9c99
(lock_file): Move gcpro of `fn'.

diff -r 6613b3835666 -r ca384fd94454 src/filelock.c
--- a/src/filelock.c	Wed Oct 13 16:14:15 1999 +0000
+++ b/src/filelock.c	Wed Oct 13 17:17:59 1999 +0000
@@ -566,6 +566,7 @@
     return;
 
   orig_fn = fn;
+  GCPRO1 (fn);
   fn = Fexpand_file_name (fn, Qnil);
   encoded_fn = ENCODE_FILE (fn);
 
@@ -579,15 +580,14 @@
     struct gcpro 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;
   }
+  UNGCPRO;
 
   /* Try to lock the lock. */
   if (lock_if_free (&lock_info, lfname) <= 0)