changeset 59909:87be0a82769a

(help-with-tutorial): Make sure that users cannot remove the entire text of the tutorial by means of `undo'.
author Lute Kamstra <lute@gnu.org>
date Thu, 03 Feb 2005 19:41:14 +0000
parents de5deb63979f
children 30a070683a90
files lisp/help-fns.el
diffstat 1 files changed, 1 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/help-fns.el	Thu Feb 03 16:20:22 2005 +0000
+++ b/lisp/help-fns.el	Thu Feb 03 19:41:14 2005 +0000
@@ -97,6 +97,7 @@
 	  (forward-line 1)
 	  (newline (- n (/ n 2)))))
       (goto-char (point-min))
+      (setq buffer-undo-list nil)
       (set-buffer-modified-p nil))))
 
 ;;;###autoload