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 "<f>")
   (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