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
dd7d85ba
Commit
dd7d85ba
authored
Jul 29, 1996
by
Richard M. Stallman
Browse files
(help-fontify-buffer-function): Function deleted.
(help-mode): Set font-lock-defaults in simple way again.
parent
4cf1b2e5
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
1 addition
and
13 deletions
+1
-13
lisp/help.el
lisp/help.el
+1
-13
No files found.
lisp/help.el
View file @
dd7d85ba
...
...
@@ -107,14 +107,6 @@
(
list
(
concat
"\\<:"
sym-char
"+\\>"
)
0
'font-lock-reference-face
t
))))
"Default expressions to highlight in Help mode."
)
(
defun
help-fontify-buffer-function
()
;; This function's symbol is bound to font-lock-fontify-buffer-function.
(
let
((
font-lock-fontify-region-function
'font-lock-default-fontify-region
))
;; Fontify as normal.
(
font-lock-default-fontify-buffer
)
;; Prevent Font Lock mode from kicking in.
(
setq
font-lock-fontified
t
)))
(
defun
help-mode
()
"Major mode for viewing help text.
Entry to this mode runs the normal hook `help-mode-hook'.
...
...
@@ -126,11 +118,7 @@ Commands:
(
setq
mode-name
"Help"
)
(
setq
major-mode
'help-mode
)
(
make-local-variable
'font-lock-defaults
)
(
setq
font-lock-defaults
'
(
help-font-lock-keywords
nil
nil
nil
nil
(
font-lock-inhibit-thing-lock
.
(
lazy-lock-mode
))
(
font-lock-fontify-region-function
.
ignore
)
(
font-lock-fontify-buffer-function
.
help-fontify-buffer-function
)))
(
setq
font-lock-defaults
'
(
help-font-lock-keywords
))
(
view-mode
)
(
run-hooks
'help-mode-hook
))
...
...
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