Fix some standard-output/help-buffer confusion in describe-function-1

* lisp/help-fns.el (describe-function-1): We're outputting to
standard-output, so deconfuse slightly.
This commit is contained in:
Lars Ingebrigtsen 2022-02-08 08:24:30 +01:00
parent d18764000f
commit d97e9d701d

View file

@ -959,9 +959,9 @@ Returns a list of the form (REAL-FUNCTION DEF ALIASED REAL-DEF)."
;;;###autoload
(defun describe-function-1 (function)
(let ((pt1 (with-current-buffer (help-buffer) (point))))
(let ((pt1 (with-current-buffer standard-output (point))))
(help-fns-function-description-header function)
(with-current-buffer (help-buffer)
(with-current-buffer standard-output
(let ((inhibit-read-only t))
(fill-region-as-paragraph
(save-excursion