# HG changeset patch
# User Chong Yidong <cyd@stupidchicken.com>
# Date 1166801050 0
# Node ID 90a64762539da63ef20a6350931507edf03eb312
# Parent  1163009088c6be663ae90decbe5af852e43271d4
(tutorial--save-tutorial): Prompt before saving tutorial state.

diff -r 1163009088c6 -r 90a64762539d lisp/tutorial.el
--- a/lisp/tutorial.el	Fri Dec 22 15:24:00 2006 +0000
+++ b/lisp/tutorial.el	Fri Dec 22 15:24:10 2006 +0000
@@ -644,9 +644,10 @@
 position where the display of changed bindings was inserted."
   ;; This runs in a hook so protect it:
   (condition-case err
-      (tutorial--save-tutorial-to (tutorial--saved-file))
-    (error (message "Error saving tutorial state: %s" (error-message-string err))
-           (sit-for 4))))
+      (if (y-or-n-p "Save your position in the tutorial? ")
+	  (tutorial--save-tutorial-to (tutorial--saved-file)))
+    (error (message "Error saving tutorial state: %s"
+		    (error-message-string err)))))
 
 (defun tutorial--save-tutorial-to (saved-file)
   "Save the tutorial buffer to SAVED-FILE.