Mercurial > emacs
comparison lisp/help.el @ 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 | a03aa24489bd |
children | 459c58257c18 |
comparison
equal
deleted
inserted
replaced
24814:4c57b458fa9b | 24815:aea50239347a |
---|---|
1093 Both variable and function documentation are extracted into a single | 1093 Both variable and function documentation are extracted into a single |
1094 help buffer." | 1094 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." |
1107 (save-excursion | 1107 (save-excursion |
1108 (set-buffer buffer) | 1108 (set-buffer buffer) |