* 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 49bf06bfc1b442726553580052f816a70e7f4cfc..1979f1bbe3db262dc00417cce4a615b7dc5d5ae4 100644 (file)
--- 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