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 | ff10236de8ee35142040eac133f71a71012ca1df (patch) | |
| tree | 8d4a97d9c2e5588b3401025b480a5f6ba1c6ebef /lisp/ehelp.el | |
| parent | 3d6d1cd53fe1e02b2a3115d1cb236d3413575c6e (diff) | |
| download | emacs-ff10236de8ee35142040eac133f71a71012ca1df.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)) |