60 |
|
|
61 |
(setq-default help-xref-stack nil help-xref-stack-item nil) |
(setq-default help-xref-stack nil help-xref-stack-item nil) |
62 |
|
|
63 |
|
(defcustom help-mode-hook nil |
64 |
|
"Hook run by `help-mode'." |
65 |
|
:type 'hook |
66 |
|
:group 'help) |
67 |
|
|
68 |
;; Button types used by help |
;; Button types used by help |
69 |
|
|
140 |
|
|
141 |
|
|
142 |
;;;###autoload |
;;;###autoload |
143 |
(define-derived-mode help-mode nil "Help" |
(defun help-mode () |
144 |
"Major mode for viewing help text and navigating references in it. |
"Major mode for viewing help text and navigating references in it. |
145 |
Entry to this mode runs the normal hook `help-mode-hook'. |
Entry to this mode runs the normal hook `help-mode-hook'. |
146 |
Commands: |
Commands: |
147 |
\\{help-mode-map}" |
\\{help-mode-map}" |
148 |
|
(interactive) |
149 |
|
(kill-all-local-variables) |
150 |
|
(use-local-map help-mode-map) |
151 |
|
(setq mode-name "Help") |
152 |
|
(setq major-mode 'help-mode) |
153 |
|
(make-local-variable 'font-lock-defaults) |
154 |
(setq font-lock-defaults nil) ; font-lock would defeat xref |
(setq font-lock-defaults nil) ; font-lock would defeat xref |
155 |
(view-mode) |
(view-mode) |
156 |
(make-local-variable 'view-no-disable-on-exit) |
(make-local-variable 'view-no-disable-on-exit) |
157 |
(setq view-no-disable-on-exit t)) |
(setq view-no-disable-on-exit t) |
158 |
|
(run-hooks 'help-mode-hook)) |
159 |
|
|
160 |
;;;###autoload |
;;;###autoload |
161 |
(defun help-mode-setup () |
(defun help-mode-setup () |