From 5383bc6df99cfe5583b9f3a22ebd153cf5405b74 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Wed, 9 Aug 1995 22:39:32 +0000 Subject: [PATCH] (lock_file): Use get_truename_buffer. --- src/filelock.c | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) 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))) -- 2.39.5