Mercurial > emacs
changeset 24815:aea50239347a
(help-xref-interned): Fix insertion of fdoc and revamp.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Fri, 04 Jun 1999 18:48:16 +0000 |
| parents | 4c57b458fa9b |
| children | cc789d9ef186 |
| files | lisp/help.el |
| diffstat | 1 files changed, 6 insertions(+), 6 deletions(-) [+] |
line wrap: on
line diff
--- 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."