(help-with-tutorial): Make sure that users cannot remove the entire

text of the tutorial by means of `undo'.

lisp/ChangeLog

@@ -1,3 +1,8 @@
+2005-02-03  Lute Kamstra  <lute@gnu.org>
+
+	* help-fns.el (help-with-tutorial): Make sure that users cannot
+	remove the entire text of the tutorial by means of `undo'.
+
 2005-02-03  Stefan Monnier  <monnier@iro.umontreal.ca>
 
 	* textmodes/ispell.el (ispell-internal-change-dictionary): Fix problem

lisp/help-fns.el

@@ -97,6 +97,7 @@ With ARG, you are asked to choose which language."
 	  (forward-line 1)
 	  (newline (- n (/ n 2)))))
       (goto-char (point-min))
+      (setq buffer-undo-list nil)
       (set-buffer-modified-p nil))))
 
 ;;;###autoload