Ask before killing other buffers

2013-01-03 15:34:42 -05:00 · 2013-01-03 15:34:42 -05:00 · eaef94e108
parent 3357f6c401
commit eaef94e108
1 changed files with 4 additions and 1 deletions
--- a/funcs.el
+++ b/funcs.el
@ -143,6 +143,9 @@
 (defun kill-other-buffers ()
  "Kill all other buffers."
  (interactive)
-  (mapc 'kill-buffer (delq (current-buffer) (buffer-list))))
+  (let (name (buffer-name))
+    (when (yes-or-no-p (format "Killing all buffers except \"%s\" ? " buffer-file-name))
+      (mapc 'kill-buffer (delq (current-buffer) (buffer-list)))
+      (message "Buffers deleted!"))))

 (provide 'funcs)