Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
1700f41d
Commit
1700f41d
authored
Nov 20, 2001
by
Richard M. Stallman
Browse files
(help-mode): Undo 2001-10-07 change.
parent
505847d4
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
13 additions
and
3 deletions
+13
-3
lisp/help-mode.el
lisp/help-mode.el
+13
-3
No files found.
lisp/help-mode.el
View file @
1700f41d
...
...
@@ -60,7 +60,10 @@ The format is (FUNCTION ARGS...).")
(
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 @@ The format is (FUNCTION ARGS...).")
;;;###autoload
(
def
ine-derived-mode
help-mode
nil
"Help"
(
def
un
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
()
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment