From 567703c34a13aa2d38a669584de2e0fe65a3793c Mon Sep 17 00:00:00 2001 From: Henrik Lissner Date: Wed, 23 Dec 2015 03:47:18 -0500 Subject: [PATCH] Better :rm --- core/lib/defuns-file.el | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/core/lib/defuns-file.el b/core/lib/defuns-file.el index 9df2eb2a9..b32496f0e 100644 --- a/core/lib/defuns-file.el +++ b/core/lib/defuns-file.el @@ -8,13 +8,13 @@ (let ((filename (file-truename (or filename (buffer-file-name))))) (if (not (file-exists-p filename)) (error "File doesn't exist: %s" filename) - (delete-file filename) - (when bang + (when (or bang (and (not bang) (y-or-n-p (format "Delete %s?" (f-base filename))))) + (delete-file filename) (kill-this-buffer) (unless (narf/real-buffer-p) - (narf/previous-real-buffer))) - (save-place-forget-unreadable-files) - (message "File successfully deleted: %s" filename)))) + (narf/previous-real-buffer)) + (save-place-forget-unreadable-files) + (message "File successfully deleted: %s" filename))))) (defun narf--save-exit() (save-buffer) (kill-buffer) (remove-hook 'yas-after-exit-snippet-hook '--save-exit)) ;;;###autoload (autoload 'narf:file-create "defuns-file" nil t)