(help-mode)
(setq buffer-read-only nil))
-(add-hook 'temp-buffer-setup-hook 'help-mode-setup)
+(add-hook 'temp-buffer-show-hook 'help-mode-setup)
(defun help-mode-finish ()
(when (eq major-mode 'help-mode)
(setq view-return-to-alist
(list (cons (selected-window) help-return-method))))
-(add-hook 'temp-buffer-show-hook 'help-mode-finish)
+(add-hook 'temp-buffer-setup-hook 'help-mode-finish)
(defun help-quit ()
"Just exit from the Help command's command loop."