From e024a2f4ab5c253fe040d3fd2edf7be902e21823 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Thu, 7 Mar 1996 18:15:59 +0000 Subject: [PATCH] (with-electric-help): Make buffer read-only as last thing. --- lisp/ehelp.el | 5 +++-- 1 file 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)) -- 2.39.2