Display message when tutorial position is not saved

2 files changed, 7 insertions, 1 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 11e82c703a3..77740d1f910 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  Reiner Steib  <Reiner.Steib@gmx.de>
 
         * doc-view.el: Mention xpdf.  Fix spelling of Ghostscript.
diff --git a/lisp/tutorial.el b/lisp/tutorial.el
index 26fb0e503f7..4913da63f5c 100644
--- a/lisp/tutorial.el
+++ b/lisp/tutorial.el
@@ -665,7 +665,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)))))