mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-11 16:08:13 +00:00
Code Issues Releases Activity

(help-mode-finish): Renamed from help-mode-maybe.

Browse Source 
Don't switch to Help mode here.
(temp-buffer-setup-hook): Use help-mode-finish.
(help-mode-setup): New function.
(temp-buffer-setup-hook): Use help-mode-setup.
This commit is contained in:
Richard M. Stallman 1999-01-11 15:25:41 +00:00
parent 49464a309b
commit e48143f0fd
1 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
lisp/help.el
View File

@ -154,9 +154,13 @@ Commands:
;; `help-mode-maybe'.
(run-hooks 'help-mode-hook))
(defun help-mode-maybe ()
(if (eq major-mode 'fundamental-mode)
(help-mode))
(defun help-mode-setup ()
(help-mode)
(setq buffer-read-only nil))
(add-hook 'temp-buffer-setup-hook 'help-mode-setup)
(defun help-mode-finish ()
(when (eq major-mode 'help-mode)
;; View mode's read-only status of existing *Help* buffer is lost
;; by with-output-to-temp-buffer.
@ -165,7 +169,7 @@ Commands:
(setq view-return-to-alist
(list (cons (selected-window) help-return-method))))
(add-hook 'temp-buffer-show-hook 'help-mode-maybe)
(add-hook 'temp-buffer-show-hook 'help-mode-finish)
(defun help-quit ()
"Just exit from the Help command's command loop."