diff options
| author | Juri Linkov | 2005-12-14 07:42:20 +0000 |
|---|---|---|
| committer | Juri Linkov | 2005-12-14 07:42:20 +0000 |
| commit | cd2768dd4c48dfaa3a04a0d3b3dcd7589ed81b79 (patch) | |
| tree | 2a6e49debe0d3df44d4039b7af793641fb33617d | |
| parent | dd7c6f214642f6c791ee8294cc088bb3854032a3 (diff) | |
| download | emacs-cd2768dd4c48dfaa3a04a0d3b3dcd7589ed81b79.tar.gz emacs-cd2768dd4c48dfaa3a04a0d3b3dcd7589ed81b79.zip | |
(make-help-screen): Bind `inhibit-read-only' to t
around `erase-buffer' and `insert'.
| -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 |