# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 792779629 0
# Node ID e4fb5e01090a700c87b4e03cf84bb813b1d04ed9
# Parent  dea8f022819d5836f7819b51c261024fe0358f64
(unlock_buffer, unlock_all_files, Flock_buffer)
(Funlock_buffer): Use buffer's file_truename, not filename.

diff -r dea8f022819d -r e4fb5e01090a src/filelock.c
--- a/src/filelock.c	Tue Feb 14 16:33:19 1995 +0000
+++ b/src/filelock.c	Tue Feb 14 16:33:49 1995 +0000
@@ -381,8 +381,8 @@
   for (tail = Vbuffer_alist; GC_CONSP (tail); tail = XCONS (tail)->cdr)
     {
       b = XBUFFER (XCONS (XCONS (tail)->car)->cdr);
-      if (STRINGP (b->filename) && BUF_SAVE_MODIFF (b) < BUF_MODIFF (b))
-	unlock_file (b->filename);
+      if (STRINGP (b->file_truename) && BUF_SAVE_MODIFF (b) < BUF_MODIFF (b))
+	unlock_file (b->file_truename);
     }
 }
 
@@ -396,7 +396,7 @@
      Lisp_Object fn;
 {
   if (NILP (fn))
-    fn = current_buffer->filename;
+    fn = current_buffer->file_truename;
   else
     CHECK_STRING (fn, 0);
   if (SAVE_MODIFF < MODIFF
@@ -412,8 +412,8 @@
   ()
 {
   if (SAVE_MODIFF < MODIFF
-      && STRINGP (current_buffer->filename))
-    unlock_file (current_buffer->filename);
+      && STRINGP (current_buffer->file_truename))
+    unlock_file (current_buffer->file_truename);
   return Qnil;
 }
 
@@ -424,8 +424,8 @@
      struct buffer *buffer;
 {
   if (BUF_SAVE_MODIFF (buffer) < BUF_MODIFF (buffer)
-      && STRINGP (buffer->filename))
-    unlock_file (buffer->filename);
+      && STRINGP (buffer->file_truename))
+    unlock_file (buffer->file_truename);
 }
 
 DEFUN ("file-locked-p", Ffile_locked_p, Sfile_locked_p, 0, 1, 0,