diff options
| -rw-r--r-- | lisp/help-macro.el | 5 |
1 files changed, 3 insertions, 2 deletions
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." | |||
| 139 | (setq new-frame (window-frame (selected-window)) | 139 | (setq new-frame (window-frame (selected-window)) |
| 140 | config nil)) | 140 | config nil)) |
| 141 | (setq buffer-read-only nil) | 141 | (setq buffer-read-only nil) |
| 142 | (erase-buffer) | 142 | (let ((inhibit-read-only t)) |
| 143 | (insert help-screen) | 143 | (erase-buffer) |
| 144 | (insert help-screen)) | ||
| 144 | (help-mode) | 145 | (help-mode) |
| 145 | (goto-char (point-min)) | 146 | (goto-char (point-min)) |
| 146 | (while (or (memq char (append help-event-list | 147 | (while (or (memq char (append help-event-list |