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

text of the tutorial by means of `undo'.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 2cf391c48075f27f77b420b7c9f53360032e518e..60f02018012a52342db88a5418181838cb4a8f77 100644 (file)
--- 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 9acadaa2fa66a6adbdea9994f17d50075fc8e2eb..4bf0a4775a083f65798352345fb3a40ca833d655 100644 (file)
--- 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