Display message when tutorial position is not saved

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 7d1bf357f0674de832b6770fd48a1a7cf3e0795a..d875705e63e84fda24efcbf4db4345946d3f0973 100644 (file)
--- 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 bfa7f42d8ab529c70080dc5b43bdecb070f12c98..a7f239d74997750495b2e8b0d6a617d985ec77f6 100644 (file)
--- 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)))))