diff options
| -rw-r--r-- | lisp/help.el | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/lisp/help.el b/lisp/help.el index 9d0c4e856aa..f5ed123a6f3 100644 --- a/lisp/help.el +++ b/lisp/help.el @@ -1095,12 +1095,12 @@ help buffer." (let ((fdoc (describe-function symbol))) (describe-variable symbol) ;; We now have a help buffer on the variable. Insert the function - ;; text after it. - (goto-char (point-max)) - (let ((inhibit-read-only t)) - (insert "\n\n" fdoc))) - (goto-char (point-min)) - (help-setup-xref (list #'help-xref-interned symbol) nil)) + ;; text before it. + (with-current-buffer "*Help*" + (goto-char (point-min)) + (let ((inhibit-read-only t)) + (insert fdoc "\n\n" (symbol-name symbol) " is also a variable.\n\n")) + (help-setup-xref (list #'help-xref-interned symbol) nil)))) (defun help-xref-mode (buffer) "Do a `describe-mode' for the specified BUFFER." |