[elpa] 164/255: prompt before quitting

[Eric Schulte]

eschulte pushed a commit to branch go
in repository elpa.

commit 6d15b8ae45fce906092da99365a3126ffcae730d
Author: Eric Schulte <address@hidden>
Date:   Tue Jun 5 14:31:18 2012 -0600

    prompt before quitting
---
 go-board.el |    5 +++--
 1 files changed, 3 insertions(+), 2 deletions(-)

diff --git a/go-board.el b/go-board.el
index 12bf16b..5213f7a 100644
--- a/go-board.el
+++ b/go-board.el
@@ -381,8 +381,9 @@
 
 (defun go-board-quit ()
   (interactive)
-  (with-trackers tr (go-quit tr))
-  (kill-buffer (current-buffer)))
+  (when (y-or-n-p "quit: ")
+    (with-trackers tr (go-quit tr))
+    (kill-buffer (current-buffer))))
 
 
 ;;; Display mode