diff options
author | Karl Heuer <kwzh@gnu.org> | 1997-10-15 23:36:30 +0000 |
---|---|---|
committer | Karl Heuer <kwzh@gnu.org> | 1997-10-15 23:36:30 +0000 |
commit | f66a7b7920d946a1769e9c05f01681b285ec506c (patch) | |
tree | b58f674adf60c95c9fd48a957b7036e561a91206 /lisp/help.el | |
parent | 6a4cdc7028644121b5302ef3e7d483703f57c159 (diff) | |
download | emacs-f66a7b7920d946a1769e9c05f01681b285ec506c.tar.gz |
(help-mode-maybe): New function, on temp-buffer-show-hook.
(describe-key, describe-mode): Don't call help-mode here.
(view-lossage, describe-function, describe-variable): Likewise.
Diffstat (limited to 'lisp/help.el')
-rw-r--r-- | lisp/help.el | 17 |
1 files changed, 7 insertions, 10 deletions
diff --git a/lisp/help.el b/lisp/help.el index 867ab33a5af..23901132b05 100644 --- a/lisp/help.el +++ b/lisp/help.el @@ -127,6 +127,12 @@ Commands: (setq view-no-disable-on-exit t) (run-hooks 'help-mode-hook)) +(defun help-mode-maybe () + (if (eq major-mode 'fundamental-mode) + (help-mode))) + +(add-hook 'temp-buffer-show-hook 'help-mode-maybe) + (defun help-quit () (interactive) nil) @@ -289,9 +295,6 @@ If FUNCTION is nil, applies `message' to it, thus printing it." (progn (terpri) (princ doc)) (princ "not documented"))) - (save-excursion - (set-buffer standard-output) - (help-mode)) (print-help-return-message))))))) (defun describe-mode () @@ -334,9 +337,6 @@ followed by the major mode, which is described on the last page.\n\f\n")) (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 @@ -416,8 +416,7 @@ 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")) - (help-mode)) + (insert "\n"))) (print-help-return-message))) (defalias 'help 'help-for-help) @@ -583,7 +582,6 @@ C-w Display information on absence of warranty for GNU Emacs." (print-help-return-message) (save-excursion (set-buffer standard-output) - (help-mode) ;; Return the text we displayed. (buffer-string))) (message "You didn't specify a function"))) @@ -661,7 +659,6 @@ Returns the documentation as a string, also." (print-help-return-message) (save-excursion (set-buffer standard-output) - (help-mode) ;; Return the text we displayed. (buffer-string)))) (message "You did not specify a variable"))) |