diff options
| author | Po Lu <luangruo@yahoo.com> | 2023-02-18 11:03:07 +0800 |
|---|---|---|
| committer | Po Lu <luangruo@yahoo.com> | 2023-02-18 11:03:07 +0800 |
| commit | 3e747630999894553e2726f81b7d13da46b96350 (patch) | |
| tree | 301b8d74c878b3126f6c1dbe5184b3fe3155b4f6 /lisp/files.el | |
| parent | 13fd7667f9c7fe5a4588bcae427e2da1ce368fe0 (diff) | |
| download | emacs-3e747630999894553e2726f81b7d13da46b96350.tar.gz emacs-3e747630999894553e2726f81b7d13da46b96350.tar.bz2 emacs-3e747630999894553e2726f81b7d13da46b96350.zip | |
* lisp/files.el (file-equal-p): Work around Haiku stat bug.
Diffstat (limited to 'lisp/files.el')
| -rw-r--r-- | lisp/files.el | 13 |
1 files changed, 12 insertions, 1 deletions
diff --git a/lisp/files.el b/lisp/files.el index 0d24852358e..57e01340359 100644 --- a/lisp/files.el +++ b/lisp/files.el @@ -6357,7 +6357,18 @@ If FILE1 or FILE2 does not exist, the return value is unspecified." (let (f1-attr f2-attr) (and (setq f1-attr (file-attributes (file-truename file1))) (setq f2-attr (file-attributes (file-truename file2))) - (equal f1-attr f2-attr)))))) + (progn + ;; Haiku systems change the file's last access timestamp + ;; every time `stat' is called. Make sure to not compare + ;; the timestamps in that case. + (or (equal f1-attr f2-attr) + (when (and (eq system-type 'haiku) + (consp (nthcdr 4 f1-attr)) + (consp (nthcdr 4 f2-attr))) + (ignore-errors + (setcar (nthcdr 4 f1-attr) nil) + (setcar (nthcdr 4 f2-attr) nil)) + (equal f1-attr f2-attr))))))))) (defun file-in-directory-p (file dir) "Return non-nil if DIR is a parent directory of FILE. |