/[emacs]/emacs/lisp/help-mode.el
ViewVC logotype

Diff of /emacs/lisp/help-mode.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.5 by miles, Fri Nov 2 05:49:48 2001 UTC revision 1.6 by rms, Tue Nov 20 23:36:37 2001 UTC
# Line 60  The format is (FUNCTION ARGS...).") Line 60  The format is (FUNCTION ARGS...).")
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    
# Line 137  The format is (FUNCTION ARGS...).") Line 140  The format is (FUNCTION ARGS...).")
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 ()

Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26