From: Richard M. Stallman <rms@gnu.org>
Date: Wed, 9 Aug 1995 22:39:32 +0000 (+0000)
Subject: (lock_file): Use get_truename_buffer.
X-Git-Tag: emacs-19.34~3049
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=5383bc6df99cfe5583b9f3a22ebd153cf5405b74;p=emacs.git

(lock_file): Use get_truename_buffer.
---

diff --git a/src/filelock.c b/src/filelock.c
index 98d197afd54..bda8bede020 100644
--- a/src/filelock.c
+++ b/src/filelock.c
@@ -199,9 +199,10 @@ void
 lock_file (fn)
      register Lisp_Object fn;
 {
-  register Lisp_Object attack;
+  register Lisp_Object attack, orig_fn;
   register char *lfname;
 
+  orig_fn = fn;
   fn = Fexpand_file_name (fn, Qnil);
 
   MAKE_LOCK_NAME (lfname, fn);
@@ -210,7 +211,7 @@ lock_file (fn)
      visited.  */
   {
     register Lisp_Object subject_buf;
-    subject_buf = Fget_file_buffer (fn);
+    subject_buf = get_truename_buffer (orig_fn);
     if (!NILP (subject_buf)
 	&& NILP (Fverify_visited_file_modtime (subject_buf))
 	&& !NILP (Ffile_exists_p (fn)))