From: Lute Kamstra <lute@gnu.org>
Date: Thu, 3 Feb 2005 19:42:19 +0000 (+0000)
Subject: (help-with-tutorial): Make sure that users cannot remove the entire
X-Git-Tag: ttn-vms-21-2-B4~2427
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=02f244c8ed2af96f446bbb24213baa9cdf13e082;p=emacs.git

(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 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