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

text of the tutorial by means of `undo'.

2 files changed, 6 insertions, 0 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 2cf391c4807..60f02018012 100644
--- a/lisp/ChangeLog
+++ b/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
diff --git a/lisp/help-fns.el b/lisp/help-fns.el
index 9acadaa2fa6..4bf0a4775a0 100644
--- a/lisp/help-fns.el
+++ b/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