Display message when tutorial position is not saved

2 files changed, 7 insertions, 1 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 7d1bf357f06..d875705e63e 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2007-10-17  Aaron Hawley  <aaronh@garden.org>
+
+        * tutorial.el (tutorial--save-tutorial): Display message when tutorial
+        position is not saved.
+
 2007-10-17  Chong Yidong  <cyd@stupidchicken.com>
 
         * longlines.el (longlines-wrap-follows-window-size): Integer value
diff --git a/lisp/tutorial.el b/lisp/tutorial.el
index bfa7f42d8ab..a7f239d7499 100644
--- a/lisp/tutorial.el
+++ b/lisp/tutorial.el
@@ -656,7 +656,8 @@ position where the display of changed bindings was inserted."
   ;; This runs in a hook so protect it:
   (condition-case err
       (if (y-or-n-p "Save your position in the tutorial? ")
-          (tutorial--save-tutorial-to (tutorial--saved-file)))
+          (tutorial--save-tutorial-to (tutorial--saved-file))
+        (message "Tutorial position not saved"))
     (error (message "Error saving tutorial state: %s"
                     (error-message-string err)))))