From: Richard M. Stallman <rms@gnu.org>
Date: Wed, 29 Apr 1998 00:28:28 +0000 (+0000)
Subject: (lock_file): gcpro `fn'.
X-Git-Tag: emacs-20.3~1259
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=3036594f2ac4967e7c89efaec9fcba574eefdf30;p=emacs.git

(lock_file): gcpro `fn'.
---

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. */