awesome-emacs/doomemacs
1
0
Fork 0
mirror of https://github.com/doomemacs/doomemacs synced 2025-08-03 12:27:26 -05:00
Code Issues Packages Projects Releases Wiki Activity

doom:file-delete: remove org attachment check (to be done elsewhere later)

Browse Source
This commit is contained in:
Henrik Lissner
2016-06-23 01:31:22 -04:00
parent 64c51764a1
commit 12c3c98a74
1 changed files with 0 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@ -9,12 +9,6 @@
(if (not (file-exists-p filename)) (if (not (file-exists-p filename))
(error "File doesn't exist: %s" filename) (error "File doesn't exist: %s" filename)
(when (or bang (and (not bang) (y-or-n-p (format "Delete %s?" (f-base filename))))) (when (or bang (and (not bang) (y-or-n-p (format "Delete %s?" (f-base filename)))))
;; Delete attachments if in org-mode
(when (eq major-mode 'org-mode)
(mapc (lambda (file)
(when (file-exists-p file)
(delete-file file t)))
(doom/org-attachments)))
(set-buffer-modified-p nil) (set-buffer-modified-p nil)
(delete-file filename) (delete-file filename)
(kill-this-buffer) (kill-this-buffer)