Display message when tutorial position is not saved

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 11e82c703a308c2a696b1367bc9cfe9786ebaf73..77740d1f91085dd9ce0d23e6e5f386e64c41fa2a 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  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 26fb0e503f787b17670d8a9617049343f91988ad..4913da63f5cc8d2cc2ed6180a118b6ff331b944d 100644 (file)
--- 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)))))