(lock_file): gcpro `fn'.

3036594f · Richard M. Stallman · 35d63725 · 3036594f
Commit 3036594f authored Apr 29, 1998 by Richard M. Stallman
Hide whitespace changes
Inline Side-by-side

Showing with 6 additions and 0 deletions

src/filelock.c src/filelock.c +6 -0

No files found.
--- 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. */