equals -> file-equal-p refactor
Use more reliable file comparison function.
This commit is contained in:
parent
ee262e7737
commit
99afb01315
1 changed files with 1 additions and 2 deletions
|
@ -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)
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue