diff options
| author | Karl Heuer | 1999-06-04 18:48:16 +0000 |
|---|---|---|
| committer | Karl Heuer | 1999-06-04 18:48:16 +0000 |
| commit | 57ec49bae044d8b3a62094160f5e345c8f24a5da (patch) | |
| tree | 26891e8c65f028356584947bc7eb7b199594f9b0 | |
| parent | 068c712cc950a6c359ec7d98a3ee47e7558aeb2f (diff) | |
| download | emacs-57ec49bae044d8b3a62094160f5e345c8f24a5da.tar.gz emacs-57ec49bae044d8b3a62094160f5e345c8f24a5da.zip | |
(help-xref-interned): Fix insertion of fdoc and revamp.
| -rw-r--r-- | lisp/help.el | 12 |
1 files 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." | |||
| 1095 | (let ((fdoc (describe-function symbol))) | 1095 | (let ((fdoc (describe-function symbol))) |
| 1096 | (describe-variable symbol) | 1096 | (describe-variable symbol) |
| 1097 | ;; We now have a help buffer on the variable. Insert the function | 1097 | ;; We now have a help buffer on the variable. Insert the function |
| 1098 | ;; text after it. | 1098 | ;; text before it. |
| 1099 | (goto-char (point-max)) | 1099 | (with-current-buffer "*Help*" |
| 1100 | (let ((inhibit-read-only t)) | 1100 | (goto-char (point-min)) |
| 1101 | (insert "\n\n" fdoc))) | 1101 | (let ((inhibit-read-only t)) |
| 1102 | (goto-char (point-min)) | 1102 | (insert fdoc "\n\n" (symbol-name symbol) " is also a variable.\n\n")) |
| 1103 | (help-setup-xref (list #'help-xref-interned symbol) nil)) | 1103 | (help-setup-xref (list #'help-xref-interned symbol) nil)))) |
| 1104 | 1104 | ||
| 1105 | (defun help-xref-mode (buffer) | 1105 | (defun help-xref-mode (buffer) |
| 1106 | "Do a `describe-mode' for the specified BUFFER." | 1106 | "Do a `describe-mode' for the specified BUFFER." |