From: Karl Heuer <kwzh@gnu.org>
Date: Thu, 23 Oct 1997 06:53:36 +0000 (+0000)
Subject: (unlock_all_files): Don't call unlock_file;
X-Git-Tag: emacs-20.3~2942
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=1c3430513b8f7c5dc00bd782fadeaa8c2e6cdb89;p=emacs.git

(unlock_all_files): Don't call unlock_file;
do the work directly, and avoid calling Fexpand_file_name.
---

diff --git a/src/filelock.c b/src/filelock.c
index 55be9fb8628..c98afdd30d1 100644
--- a/src/filelock.c
+++ b/src/filelock.c
@@ -385,7 +385,14 @@ unlock_all_files ()
     {
       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);
+	}
     }
 }