mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 04:10:54 -08:00
Code Issues Projects Releases Wiki Activity

Don't have the tutorial ask to save if we haven't moved

Browse source 
* lisp/tutorial.el (tutorial--save-on-kill): Don't ask if the user
hasn't moved point (bug#37326).
(help-with-tutorial): Set the start point.
This commit is contained in:
Lars Ingebrigtsen 2022-05-20 03:59:03 +02:00
parent d2865bfa2c
commit 7e32904998
1 changed files with 6 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

10
lisp/tutorial.el
View file

@ -649,13 +649,15 @@ with some explanatory links."
(unless (eq prop-val 'key-sequence)
(delete-region prop-start prop-end))))))
(defvar tutorial--starting-point)
(defun tutorial--save-on-kill ()
"Query the user about saving the tutorial when killing Emacs."
(when (buffer-live-p tutorial--buffer)
(with-current-buffer tutorial--buffer
(if (y-or-n-p "Save your position in the tutorial? ")
(tutorial--save-tutorial-to (tutorial--saved-file))
(message "Tutorial position not saved"))))
(unless (= (point) tutorial--starting-point)
(if (y-or-n-p "Save your position in the tutorial? ")
(tutorial--save-tutorial-to (tutorial--saved-file))
(message "Tutorial position not saved")))))
t)
(defun tutorial--save-tutorial ()
@ -734,7 +736,6 @@ See `tutorial--save-tutorial' for more information."
(message "Can't save tutorial: %s is not a directory"
tutorial-dir)))))
;;;###autoload
(defun help-with-tutorial (&optional arg dont-ask-for-revert)
"Select the Emacs learn-by-doing tutorial.
@ -914,6 +915,7 @@ Run the Viper tutorial? "))
(forward-line 1)
(newline (- n (/ n 2)))))
(goto-char (point-min)))
(setq-local tutorial--starting-point (point))
(setq buffer-undo-list nil)
(set-buffer-modified-p nil)))))