# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 802557596 0
# Node ID 10197e4b3fb27b8f7fd4fb1f3f77dc478742181a
# Parent  5a4f4ce4ebb6df101e679139e23b4c56ce7e413b
(unlock_file, lock_file): Call Fexpand_file_name.

diff -r 5a4f4ce4ebb6 -r 10197e4b3fb2 src/filelock.c
--- a/src/filelock.c	Wed Jun 07 18:58:06 1995 +0000
+++ b/src/filelock.c	Wed Jun 07 20:39:56 1995 +0000
@@ -202,6 +202,8 @@
   register Lisp_Object attack;
   register char *lfname;
 
+  fn = Fexpand_file_name (fn, Qnil);
+
   MAKE_LOCK_NAME (lfname, fn);
 
   /* See if this file is visited and has changed on disk since it was
@@ -329,6 +331,8 @@
 {
   register char *lfname;
 
+  fn = Fexpand_file_name (fn, Qnil);
+
   MAKE_LOCK_NAME (lfname, fn);
 
   lock_superlock (lfname);