gitback/doomemacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Better :rm

Browse Source
This commit is contained in:
Henrik Lissner 2015-12-23 03:47:18 -05:00
parent 604bdae174
commit 567703c34a
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
core/lib/defuns-file.el
View File

@ -8,13 +8,13 @@
(let ((filename (file-truename (or filename (buffer-file-name))))) (let ((filename (file-truename (or filename (buffer-file-name)))))
(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)
(delete-file filename) (when (or bang (and (not bang) (y-or-n-p (format "Delete %s?" (f-base filename)))))
(when bang (delete-file filename)
(kill-this-buffer) (kill-this-buffer)
(unless (narf/real-buffer-p) (unless (narf/real-buffer-p)
(narf/previous-real-buffer))) (narf/previous-real-buffer))
(save-place-forget-unreadable-files) (save-place-forget-unreadable-files)
(message "File successfully deleted: %s" filename)))) (message "File successfully deleted: %s" filename)))))
(defun narf--save-exit() (save-buffer) (kill-buffer) (remove-hook 'yas-after-exit-snippet-hook '--save-exit)) (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) ;;;###autoload (autoload 'narf:file-create "defuns-file" nil t)