X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=src%2Ffilelock.c;h=3730af2538ccfd87c40fcaba11cd5620255c6a92;hb=ea48147f9be5f5c6797ebf3a8398c9741f23937f;hp=308565bbf0c4b1e3abf15221fbfdb47bc55ea446;hpb=98a6e4055a1fa624c592ac06f79287d55196ca37;p=chise%2Fxemacs-chise.git.1

diff --git a/src/filelock.c b/src/filelock.c
index 308565b..3730af2 100644
--- a/src/filelock.c
+++ b/src/filelock.c
@@ -225,7 +225,7 @@ current_lock_owner (lock_info_type *owner, char *lfname)
   if (STRINGP (Fsystem_name ())
       && strcmp (owner->host, (char *) XSTRING_DATA (Fsystem_name ())) == 0)
     {
-      if (owner->pid == getpid ())
+      if (owner->pid == (unsigned long) getpid ())
         ret = 2; /* We own it.  */
       else if (owner->pid > 0
                && (kill (owner->pid, 0) >= 0 || errno == EPERM))
@@ -320,6 +320,7 @@ lock_file (Lisp_Object fn)
     return;
 
   XSETBUFFER (old_current_buffer, current_buffer);
+  subject_buf = Qnil;
   GCPRO3 (fn, subject_buf, old_current_buffer);
   orig_fn = fn;
   fn = Fexpand_file_name (fn, Qnil);