Mercurial > emacs
comparison lisp/help-macro.el @ 18449:b32c3c07962c
(make-help-screen): Clear buffer-read-only.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Wed, 25 Jun 1997 07:19:52 +0000 |
parents | 852464ce5d6a |
children | 52a3dec2b6cc |
comparison
equal
deleted
inserted
replaced
18448:7cf9cdba062d | 18449:b32c3c07962c |
---|---|
122 (and (fboundp 'make-frame) | 122 (and (fboundp 'make-frame) |
123 (not (eq (window-frame (selected-window)) | 123 (not (eq (window-frame (selected-window)) |
124 prev-frame)) | 124 prev-frame)) |
125 (setq new-frame (window-frame (selected-window)) | 125 (setq new-frame (window-frame (selected-window)) |
126 config nil)) | 126 config nil)) |
127 (setq buffer-read-only nil) | |
127 (erase-buffer) | 128 (erase-buffer) |
128 (insert help-screen) | 129 (insert help-screen) |
129 (help-mode) | 130 (help-mode) |
130 (goto-char (point-min)) | 131 (goto-char (point-min)) |
131 (while (or (memq char (append help-event-list | 132 (while (or (memq char (append help-event-list |