Mercurial > emacs

changeset 67558:3e8f8913897e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(make-help-screen): Bind `inhibit-read-only' to t around `erase-buffer' and `insert'.
author Juri Linkov <juri@jurta.org>
date Wed, 14 Dec 2005 07:42:20 +0000
parents c3e344df91dd
children da1c54077c04
files lisp/help-macro.el
diffstat 1 files changed, 3 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- 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