From c51ca7d7f4fb11cf425b1a0750f58c42e0da7972 Mon Sep 17 00:00:00 2001 From: Henrik Lissner Date: Fri, 19 Jun 2015 16:08:39 +0200 Subject: [PATCH] Add narf/kill-all-buffers-do-not-remember to defuns-buffer.el --- core/lib/defuns-buffers.el | 11 +++++++++++ 1 file changed, 11 insertions(+) diff --git a/core/lib/defuns-buffers.el b/core/lib/defuns-buffers.el index 6c8dfd4ee..c7d6da9a6 100644 --- a/core/lib/defuns-buffers.el +++ b/core/lib/defuns-buffers.el @@ -199,5 +199,16 @@ left, create a scratch buffer." (interactive "") (cd (if (zerop (length dir)) "~" dir))) +;;;###autoload +(defun narf/kill-all-buffers-do-not-remember () + (interactive) + (let ((confirm-kill-emacs nil)) + (mapc 'kill-buffer (buffer-list)) + (kill-this-buffer) + (delete-other-windows) + (wg-save-session t) + (save-buffers-kill-terminal))) + + (provide 'defuns-buffers) ;;; defuns-buffers.el ends here