# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1006299397 0
# Node ID 8fa706b1026c84cc7cf476aae2bcf7880dfd3b04
# Parent  36c0568bec2a8213362d0499258f074039dd6880
(help-mode): Undo 2001-10-07 change.

diff -r 36c0568bec2a -r 8fa706b1026c lisp/help-mode.el
--- a/lisp/help-mode.el	Tue Nov 20 23:28:57 2001 +0000
+++ b/lisp/help-mode.el	Tue Nov 20 23:36:37 2001 +0000
@@ -60,7 +60,10 @@
 
 (setq-default help-xref-stack nil help-xref-stack-item nil)
 
-
+(defcustom help-mode-hook nil
+  "Hook run by `help-mode'."
+  :type 'hook
+  :group 'help)
 
 ;; Button types used by help
 
@@ -137,15 +140,22 @@
 
 
 ;;;###autoload
-(define-derived-mode help-mode nil "Help"
+(defun help-mode ()
   "Major mode for viewing help text and navigating references in it.
 Entry to this mode runs the normal hook `help-mode-hook'.
 Commands:
 \\{help-mode-map}"
+  (interactive)
+  (kill-all-local-variables)
+  (use-local-map help-mode-map)
+  (setq mode-name "Help")
+  (setq major-mode 'help-mode)
+  (make-local-variable 'font-lock-defaults)
   (setq font-lock-defaults nil)         ; font-lock would defeat xref
   (view-mode)
   (make-local-variable 'view-no-disable-on-exit)
-  (setq view-no-disable-on-exit t))
+  (setq view-no-disable-on-exit t)
+  (run-hooks 'help-mode-hook))
 
 ;;;###autoload
 (defun help-mode-setup ()