mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-24 10:38:38 +00:00
Code Issues Releases Activity

(with-electric-help): Make buffer read-only as last thing.

Browse Source
This commit is contained in:
Richard M. Stallman 1996-03-07 18:15:59 +00:00
parent 2d9cdda805
commit e024a2f4ab
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/ehelp.el
View File

@ -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))