From 57ec49bae044d8b3a62094160f5e345c8f24a5da Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Fri, 4 Jun 1999 18:48:16 +0000 Subject: [PATCH] (help-xref-interned): Fix insertion of fdoc and revamp. --- lisp/help.el | 12 ++++++------ 1 file 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." -- 2.39.5