awesome-emacs/doomemacs
1
0
Fork 0
mirror of https://github.com/doomemacs/doomemacs synced 2025-08-17 13:33:36 -05:00
Code Issues Packages Projects Releases Wiki Activity

Better file checks in narf:file-move

Browse Source
This commit is contained in:
Henrik Lissner
2016-04-16 21:38:47 -04:00
parent 988f09365b
commit 38df38f9b6
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
core/defuns/defuns-file.el
View File

@@ -60,7 +60,7 @@ provided."
;; Move all attachments if in org-mode ;; Move all attachments if in org-mode
(when (eq major-mode 'org-mode) (when (eq major-mode 'org-mode)
(mapc (lambda (file) (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))) (rename-file file (f-expand (f-filename old-path) (f-dirname new-path)) t)))
(narf/org-attachments))) (narf/org-attachments)))
(when (buffer-modified-p) (when (buffer-modified-p)