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
32fad956
Commit
32fad956
authored
Aug 10, 1995
by
Simon Marshall
Browse files
Rewrite texinfo-font-lock-keywords; don't fontify syntactically.
parent
d232ea9d
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
13 additions
and
10 deletions
+13
-10
lisp/textmodes/texinfo.el
lisp/textmodes/texinfo.el
+13
-10
No files found.
lisp/textmodes/texinfo.el
View file @
32fad956
...
...
@@ -207,16 +207,19 @@ chapter."
(
defvar
texinfo-font-lock-keywords
(
list
'
(
"^\\(@c\\|@comment\\)[ \t].*"
.
font-lock-comment-face
)
;comments
;; All but the first 2 had an OVERRIDE of t.
;; It didn't seem to be any better, and it's slower--simon.
'
(
"^\\(@c\\|@comment\\)\\>.*"
.
font-lock-comment-face
)
;comments
;; Robert J. Chassell <bob@gnu.ai.mit.edu> says remove this line.
;'("\\$\\([^$]*\\)\\$" 1 font-lock-string-face t)
"@\\(@\\|[^}\t \n{]+\\)"
;commands
'
(
"^\\(*.*\\)[\t ]*$"
1
font-lock-function-name-face
t
)
;menu items
'
(
"@\\(emph\\|strong\\|b\\|i\\){\\([^}]+\\)"
2
font-lock-comment-face
t
)
'
(
"@\\(file\\|kbd\\|key\\){\\([^}]+\\)"
2
font-lock-string-face
t
)
'
(
"@\\(samp\\|code\\|var\\){\\([^}]+\\)"
2
font-lock-function-name-face
t
)
'
(
"@\\(xref\\|pxref\\){\\([^}]+\\)"
2
font-lock-keyword-face
t
)
'
(
"@end *\\([a-zA-Z0-9]+\\)[ \t]*$"
1
font-lock-function-name-face
t
)
'
(
"@item \\(.*\\)$"
1
font-lock-function-name-face
t
)
'
(
"\\$\\([^$]*\\)\\$"
1
font-lock-string-face
t
)
'
(
"^\\(*.*\\)[\t ]*$"
1
font-lock-function-name-face
t
)
;menu items
'
(
"@\\(emph\\|strong\\|b\\|i\\){\\([^}]+\\)"
2
font-lock-comment-face
)
'
(
"@\\(file\\|kbd\\|key\\){\\([^}]+\\)"
2
font-lock-string-face
)
'
(
"@\\(samp\\|code\\|var\\|math\\){\\([^}]+\\)"
2
font-lock-variable-name-face
)
'
(
"@\\(cite\\|xref\\|pxref\\){\\([^}]+\\)"
2
font-lock-reference-face
)
'
(
"@\\(end\\|item\\) *\\(.+\\)"
2
font-lock-function-name-face
keep
)
)
"Additional expressions to highlight in TeXinfo mode."
)
...
...
@@ -396,7 +399,7 @@ value of texinfo-mode-hook."
(
make-local-variable
'imenu-generic-expression
)
(
setq
imenu-generic-expression
texinfo-imenu-generic-expression
)
(
make-local-variable
'font-lock-defaults
)
(
setq
font-lock-defaults
'
(
texinfo-font-lock-keywords
))
(
setq
font-lock-defaults
'
(
texinfo-font-lock-keywords
t
))
(
make-local-variable
'tex-start-of-header
)
(
setq
tex-start-of-header
"%**start"
)
(
make-local-variable
'tex-end-of-header
)
...
...
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