diff options
author | Karl Heuer <kwzh@gnu.org> | 1994-11-09 05:50:09 +0000 |
---|---|---|
committer | Karl Heuer <kwzh@gnu.org> | 1994-11-09 05:50:09 +0000 |
commit | 041e2b033f4a82b92b054efe4559c44100b9b21f (patch) | |
tree | 1b3f3dc909f636b4bb2e644630e0d81eb5480df7 /lisp/help.el | |
parent | 99a233e51dba2da3e7e734f2950899c987bbbb15 (diff) | |
download | emacs-041e2b033f4a82b92b054efe4559c44100b9b21f.tar.gz |
(describe-key, describe-mode, view-lossage, describe-function, describe-variable): Set help-mode in *Help* buffer.
Diffstat (limited to 'lisp/help.el')
-rw-r--r-- | lisp/help.el | 23 |
1 files changed, 18 insertions, 5 deletions
diff --git a/lisp/help.el b/lisp/help.el index c11e2cb91bc..0bb57ab61d3 100644 --- a/lisp/help.el +++ b/lisp/help.el @@ -211,6 +211,9 @@ If FUNCTION is nil, applies `message' to it, thus printing it." (if (documentation defn) (princ (documentation defn)) (princ "not documented")) + (save-excursion + (set-buffer standard-output) + (help-mode)) (print-help-return-message))))) (defun describe-mode () @@ -248,6 +251,9 @@ describes the minor mode." (princ mode-name) (princ " mode:\n") (princ (documentation major-mode)) + (save-excursion + (set-buffer standard-output) + (help-mode)) (print-help-return-message))) ;; So keyboard macro definitions are documented correctly @@ -320,7 +326,8 @@ of the key sequence that ran this command." (goto-char (point-min)) (while (progn (move-to-column 50) (not (eobp))) (search-forward " " nil t) - (insert "\n"))) + (insert "\n")) + (help-mode)) (print-help-return-message))) (defalias 'help 'help-for-help) @@ -461,8 +468,11 @@ C-w print information on absence of warranty for GNU Emacs." (princ "not documented")) ) (print-help-return-message) - ;; Return the text we displayed. - (save-excursion (set-buffer standard-output) (buffer-string)))) + (save-excursion + (set-buffer standard-output) + (help-mode) + ;; Return the text we displayed. + (buffer-string)))) (defun variable-at-point () (condition-case () @@ -510,8 +520,11 @@ Returns the documentation as a string, also." (princ (substitute-command-keys doc)) (princ "not documented as a variable."))) (print-help-return-message) - ;; Return the text we displayed. - (save-excursion (set-buffer standard-output) (buffer-string)))) + (save-excursion + (set-buffer standard-output) + (help-mode) + ;; Return the text we displayed. + (buffer-string)))) (defun where-is (definition) "Print message listing key sequences that invoke specified command. |