# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 928522096 0
# Node ID aea50239347a85f46335b9f7cab2bf282735299e
# Parent  4c57b458fa9b022a8557eee0a5ca3b5d6097e5ed
(help-xref-interned): Fix insertion of fdoc and revamp.

diff -r 4c57b458fa9b -r aea50239347a lisp/help.el
--- a/lisp/help.el	Fri Jun 04 18:46:17 1999 +0000
+++ b/lisp/help.el	Fri Jun 04 18:48:16 1999 +0000
@@ -1095,12 +1095,12 @@
   (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."