1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00

(make-help-screen): Bind `inhibit-read-only' to t

around `erase-buffer' and `insert'.
This commit is contained in:
Juri Linkov 2005-12-14 07:42:20 +00:00
parent dd7c6f2146
commit cd2768dd4c

View file

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