From: Juri Linkov <juri@jurta.org>
Date: Wed, 14 Dec 2005 07:42:20 +0000 (+0000)
Subject: (make-help-screen): Bind `inhibit-read-only' to t
X-Git-Tag: emacs-pretest-22.0.90~5291
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=cd2768dd4c48dfaa3a04a0d3b3dcd7589ed81b79;p=emacs.git

(make-help-screen): Bind `inhibit-read-only' to t
around `erase-buffer' and `insert'.
---

diff --git a/lisp/help-macro.el b/lisp/help-macro.el
index 33ee42abe7e..3170bf287b5 100644
--- a/lisp/help-macro.el
+++ b/lisp/help-macro.el
@@ -139,8 +139,9 @@ and then returns."
 				(setq new-frame (window-frame (selected-window))
 				      config nil))
 			   (setq buffer-read-only nil)
-			   (erase-buffer)
-			   (insert help-screen)
+			   (let ((inhibit-read-only t))
+			     (erase-buffer)
+			     (insert help-screen))
 			   (help-mode)
 			   (goto-char (point-min))
 			   (while (or (memq char (append help-event-list