[Fix bbatsov#798] Prompt for confirmation in prelude-kill-other-buffers

murtaza52 · Feb 16, 2015 · 70206d3 · 70206d3
1 parent 991e1c2
commit 70206d3
Showing 1 changed file with 6 additions and 5 deletions.
diff --git a/core/prelude-core.el b/core/prelude-core.el
@@ -357,11 +357,12 @@ Repeated invocations toggle between the two most recently open buffers."
   "Kill all buffers but the current one.
 Doesn't mess with special buffers."
   (interactive)
-  (-each
-   (->> (buffer-list)
-     (-filter #'buffer-file-name)
-     (--remove (eql (current-buffer) it)))
-   #'kill-buffer))
+  (when (y-or-n-p "Are you sure you want to kill all buffers but the current one? ")
+    (-each
+        (->> (buffer-list)
+             (-filter #'buffer-file-name)
+             (--remove (eql (current-buffer) it)))
+      #'kill-buffer)))
 
 (defun prelude-create-scratch-buffer ()
   "Create a new scratch buffer."