diff options
| author | Richard M. Stallman <rms@gnu.org> | 1996-03-07 18:15:59 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1996-03-07 18:15:59 +0000 |
| commit | e024a2f4ab5c253fe040d3fd2edf7be902e21823 (patch) | |
| tree | f668153286b81113e75d6e5f72cb5a3ebe2cd800 /lisp/ehelp.el | |
| parent | 2d9cdda805dbdeccb0410f7421d4d64518ee5922 (diff) | |
| download | emacs-e024a2f4ab5c253fe040d3fd2edf7be902e21823.tar.gz | |
(with-electric-help): Make buffer read-only as last thing.
Diffstat (limited to 'lisp/ehelp.el')
| -rw-r--r-- | lisp/ehelp.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/ehelp.el b/lisp/ehelp.el index 8063ec3954c..5964157d748 100644 --- a/lisp/ehelp.el +++ b/lisp/ehelp.el @@ -134,9 +134,9 @@ BUFFER is put into `default-major-mode' (or `fundamental-mode') when we exit." (if (and minheight (< (window-height) minheight)) (enlarge-window (- minheight (window-height)))) (electric-help-mode) + (setq buffer-read-only nil) (or noerase - (let ((inhibit-read-only t)) - (erase-buffer)))) + (erase-buffer))) (let ((standard-output buffer)) (if (not (funcall thunk)) (progn @@ -146,6 +146,7 @@ BUFFER is put into `default-major-mode' (or `fundamental-mode') when we exit." (if one (shrink-window-if-larger-than-buffer (selected-window)))))) (set-buffer buffer) (run-hooks 'electric-help-mode-hook) + (setq buffer-read-only t) (if (eq (car-safe (electric-help-command-loop)) 'retain) (setq config (current-window-configuration)) |