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:
parent
d18764000f
commit
d97e9d701d
1 changed files with 2 additions and 2 deletions
|
@ -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
|
||||
|
|
Loading…
Add table
Reference in a new issue