all repos — nixfiles @ 1c79164ecdab46c284def04ad374fcae94116b0d

System and user configuration, managed by nix and home-manager

Emacs: Simplify delete-current-buffer-file

Alan Pearce
commit

1c79164ecdab46c284def04ad374fcae94116b0d

parent

3479cc5e532413ef4b51eda45ecc8782af43281a

1 file changed, 3 insertions(+), 4 deletions(-)

jump to
M tag-emacs/emacs.d/init.eltag-emacs/emacs.d/init.el
@@ -319,13 +319,12 @@
(defun delete-current-buffer-file () "Removes file connected to current buffer and kills buffer." (interactive) - (let ((filename (buffer-file-name)) - (buffer (current-buffer))) + (let ((filename (buffer-file-name))) (if (not (and filename (file-exists-p filename))) - (ido-kill-buffer) + (kill-this-buffer) (when (yes-or-no-p "Are you sure you want to remove this file? ") (delete-file filename) - (kill-buffer buffer) + (kill-this-buffer) (message "File '%s' successfully removed" filename))))) (req-package ws-butler