# HG changeset patch
# User Dave Love <fx@gnu.org>
# Date 939892774 0
# Node ID 7c6e372f60a9b9b9383ebc6d31e6d57abedf9f7b
# Parent  7a9ed2b6f30bceccdfd744580dcff2a604178140
(lock_file): Fix previous change.

diff -r 7a9ed2b6f30b -r 7c6e372f60a9 src/filelock.c
--- a/src/filelock.c	Wed Oct 13 22:45:44 1999 +0000
+++ b/src/filelock.c	Thu Oct 14 09:19:34 1999 +0000
@@ -558,6 +558,7 @@
   register Lisp_Object attack, orig_fn, encoded_fn;
   register char *lfname, *locker;
   lock_info_type lock_info;
+  struct gcpro gcpro1;
 
   /* Don't do locking while dumping Emacs.
      Uncompressing wtmp files uses call-process, which does not work
@@ -577,7 +578,6 @@
      visited.  */
   {
     register Lisp_Object subject_buf;
-    struct gcpro gcpro1;
 
     subject_buf = get_truename_buffer (orig_fn);