Mercurial > emacs

changeset 41331:8fa706b1026c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(help-mode): Undo 2001-10-07 change.
author Richard M. Stallman <rms@gnu.org>
date Tue, 20 Nov 2001 23:36:37 +0000
parents 36c0568bec2a
children 15d7e3180dcf
files lisp/help-mode.el
diffstat 1 files changed, 13 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- 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 ()