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