# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 877589616 0
# Node ID 33fbdbaf65c2cd43650f431be4740b1da2de6179
# Parent  422958809490f1a9a617f6c1617ebb4162d13bbf
(unlock_all_files): Don't call unlock_file;
do the work directly, and avoid calling Fexpand_file_name.

diff -r 422958809490 -r 33fbdbaf65c2 src/filelock.c
--- a/src/filelock.c	Thu Oct 23 06:52:01 1997 +0000
+++ b/src/filelock.c	Thu Oct 23 06:53:36 1997 +0000
@@ -385,7 +385,14 @@
     {
       b = XBUFFER (XCONS (XCONS (tail)->car)->cdr);
       if (STRINGP (b->file_truename) && BUF_SAVE_MODIFF (b) < BUF_MODIFF (b))
-	unlock_file (b->file_truename);
+	{
+	  register char *lfname;
+
+	  MAKE_LOCK_NAME (lfname, b->file_truename);
+
+	  if (current_lock_owner (0, lfname) == 2)
+	    unlink (lfname);
+	}
     }
 }