From: Karl Heuer <kwzh@gnu.org>
Date: Wed, 7 Jun 1995 20:39:56 +0000 (+0000)
Subject: (unlock_file, lock_file): Call Fexpand_file_name.
X-Git-Tag: emacs-19.34~3754
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=1e89de8486675c9f18e66b3ee150d130ddbac541;p=emacs.git

(unlock_file, lock_file): Call Fexpand_file_name.
---

diff --git a/src/filelock.c b/src/filelock.c
index 4c725253acd..98d197afd54 100644
--- a/src/filelock.c
+++ b/src/filelock.c
@@ -202,6 +202,8 @@ lock_file (fn)
   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 @@ unlock_file (fn)
 {
   register char *lfname;
 
+  fn = Fexpand_file_name (fn, Qnil);
+
   MAKE_LOCK_NAME (lfname, fn);
 
   lock_superlock (lfname);