From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Fri, 19 Nov 2021 03:06:50 +0000 (-0500)
Subject: * lisp/files.el (file-has-changed-p): Index the cache with absolute file names
X-Git-Tag: emacs-29.0.90~2852^2~203
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=64497fb8cc62c9c8302a20d54fc52e3113b0983e;p=emacs.git

* lisp/files.el (file-has-changed-p): Index the cache with absolute file names
---

diff --git a/lisp/files.el b/lisp/files.el
index 49bf06bfc1b..1979f1bbe3d 100644
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -6224,8 +6224,7 @@ of `file-has-changed-p' always returns non-nil when FILE exists.
 The optional argument TAG, which must be a symbol, can be used to
 limit the comparison to invocations with identical tags; it can be
 the symbol of the calling function, for example."
-  (let* (;; FIXME: Shall we use `file-truename'?
-         (file (directory-file-name file))
+  (let* ((file (directory-file-name (expand-file-name file)))
          (remote-file-name-inhibit-cache t)
          (fileattr (file-attributes file 'integer))
 	 (attr (and fileattr