diff options
| author | Karl Heuer | 1994-11-09 05:50:19 +0000 |
|---|---|---|
| committer | Karl Heuer | 1994-11-09 05:50:19 +0000 |
| commit | 05d688cf62ddc8b408a3c6ba16fbf116919746b3 (patch) | |
| tree | 6c6f5fa70d651f36cac89fe2abf8ded17e8b0a89 | |
| parent | c46bbd926249a303fa410827d0237b2b280ea065 (diff) | |
| download | emacs-05d688cf62ddc8b408a3c6ba16fbf116919746b3.tar.gz emacs-05d688cf62ddc8b408a3c6ba16fbf116919746b3.zip | |
(make-help-screen): Set help-mode in *Help* buffer.
| -rw-r--r-- | lisp/help-macro.el | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/lisp/help-macro.el b/lisp/help-macro.el index 1a304d2e690..1e70992e296 100644 --- a/lisp/help-macro.el +++ b/lisp/help-macro.el | |||
| @@ -121,6 +121,7 @@ and then returns." | |||
| 121 | config nil)) | 121 | config nil)) |
| 122 | (erase-buffer) | 122 | (erase-buffer) |
| 123 | (insert help-screen) | 123 | (insert help-screen) |
| 124 | (help-mode) | ||
| 124 | (goto-char (point-min)) | 125 | (goto-char (point-min)) |
| 125 | (while (or (memq char (cons help-char '(?? ?\C-v ?\ ?\177 delete ?\M-v))) | 126 | (while (or (memq char (cons help-char '(?? ?\C-v ?\ ?\177 delete ?\M-v))) |
| 126 | (eq (car-safe char) 'switch-frame) | 127 | (eq (car-safe char) 'switch-frame) |