From: Karl Heuer <kwzh@gnu.org>
Date: Fri, 4 Jun 1999 18:48:16 +0000 (+0000)
Subject: (help-xref-interned): Fix insertion of fdoc and revamp.
X-Git-Tag: emacs-20.4~134
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=57ec49bae044d8b3a62094160f5e345c8f24a5da;p=emacs.git

(help-xref-interned): Fix insertion of fdoc and revamp.
---

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."