# HG changeset patch
# User Juri Linkov <juri@jurta.org>
# Date 1134546140 0
# Node ID 3e8f8913897e7495d07597eaedfe489ab397b4ed
# Parent  c3e344df91dd233c746bf660b7b52f343873ef2e
(make-help-screen): Bind `inhibit-read-only' to t
around `erase-buffer' and `insert'.

diff -r c3e344df91dd -r 3e8f8913897e lisp/help-macro.el
--- a/lisp/help-macro.el	Wed Dec 14 04:04:05 2005 +0000
+++ b/lisp/help-macro.el	Wed Dec 14 07:42:20 2005 +0000
@@ -139,8 +139,9 @@
 				(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