From 17418125353ce998580ba8f0928ffd2c47af7df3 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Sat, 12 Apr 2025 11:11:38 -0400 Subject: [PATCH] lisp/help.el (help-form-show): Improve last change (bug#77118) Fill the buffer from within the `with-output-to-temp-buffer`, as before. --- lisp/help.el | 8 +++----- 1 file changed, 3 insertions(+), 5 deletions(-) diff --git a/lisp/help.el b/lisp/help.el index a06679b31f5..5cd97897767 100644 --- a/lisp/help.el +++ b/lisp/help.el @@ -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))