mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-29 19:48:19 +00:00
Code Issues Releases Activity

(tutorial--save-tutorial): Prompt before saving tutorial state.

Browse Source
This commit is contained in:
Chong Yidong 2006-12-22 15:24:10 +00:00
parent ce9ff7846b
commit 9ccc1a31ee
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lisp/tutorial.el
View File

@ -644,9 +644,10 @@ showing changed keys. It also saves the point position and the
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.