From 99afb013157e45ac507637775fa9cdbc575c07b7 Mon Sep 17 00:00:00 2001 From: Henrik Lissner Date: Thu, 7 Jun 2018 18:01:06 +0200 Subject: [PATCH] equals -> file-equal-p refactor Use more reliable file comparison function. --- core/autoload/files.el | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/core/autoload/files.el b/core/autoload/files.el index 687ee2d91..31a166567 100644 --- a/core/autoload/files.el +++ b/core/autoload/files.el @@ -49,8 +49,7 @@ (make-directory new-path-dir t)) (when (buffer-modified-p) (save-buffer)) - (cond ((equal (file-truename old-path) - (file-truename new-path)) + (cond ((file-equal-p old-path new-path) (throw 'status 'overwrite-self)) ((and (file-exists-p new-path) (not force-p)