procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

lisp/help.el (help-form-show): Improve last change (bug#77118)

Browse source 
Fill the buffer from within the `with-output-to-temp-buffer`, as before.
This commit is contained in:
Stefan Monnier 2025-04-12 11:11:38 -04:00
parent d3c39fb522
commit 1741812535
1 changed files with 3 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
lisp/help.el
View file

@ -2262,13 +2262,11 @@ The `temp-buffer-window-setup-hook' hook is called."
"Display the output of a non-nil `help-form'."
(let ((msg (eval help-form t)))
(if (stringp msg)
(let ((bufname " *Char Help*"))
(with-output-to-temp-buffer bufname)
(with-output-to-temp-buffer " *Char Help*"
;; Use `insert' instead of `princ' so that keys in `help-form'
;; are displayed with `help-key-binding' face (bug#77118).
(with-current-buffer bufname
(let (buffer-read-only)
(insert msg)))))))
(with-current-buffer standard-output
(insert msg))))))
(defun help--append-keystrokes-help (str)
(let* ((keys (this-single-command-keys))