Better file checks in narf:file-move

2016-04-16 21:38:47 -04:00 · 2016-04-16 21:38:47 -04:00 · 38df38f9b6
commit 38df38f9b6
parent 988f09365b
1 changed files with 1 additions and 1 deletions
--- a/core/defuns/defuns-file.el
+++ b/core/defuns/defuns-file.el
@ -60,7 +60,7 @@ provided."
    ;; Move all attachments if in org-mode
    (when (eq major-mode 'org-mode)
      (mapc (lambda (file)
-              (when (file-exists-p file)
+              (when (and (file-exists-p file) (not (f-same? old-path new-path)))
                (rename-file file (f-expand (f-filename old-path) (f-dirname new-path)) t)))
            (narf/org-attachments)))
    (when (buffer-modified-p)