Commit 57ec49ba authored by Karl Heuer's avatar Karl Heuer

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

parent 068c712c
......@@ -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."
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment