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
eb9f0295
Commit
eb9f0295
authored
Aug 03, 2002
by
Glenn Morris
Browse files
(f90-font-lock-keywords-1): Simplify `type' value a little.
(f90-type-def-re): Simplify value a little.
parent
fa32e96a
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
3 additions
and
4 deletions
+3
-4
lisp/progmodes/f90.el
lisp/progmodes/f90.el
+3
-4
No files found.
lisp/progmodes/f90.el
View file @
eb9f0295
...
@@ -339,9 +339,8 @@ The options are 'downcase-word, 'upcase-word, 'capitalize-word and nil."
...
@@ -339,9 +339,8 @@ The options are 'downcase-word, 'upcase-word, 'capitalize-word and nil."
(
list
(
list
;; Special highlighting of "module procedure".
;; Special highlighting of "module procedure".
'
(
"\\<\\(module[ \t]*procedure\\)\\>"
(
1
font-lock-keyword-face
))
'
(
"\\<\\(module[ \t]*procedure\\)\\>"
(
1
font-lock-keyword-face
))
;; Highlight declaration of derived type.
;; Highlight definition of derived type.
'
(
"
\\<\\
(
\\
(
?:end[
\t]*\\
)
?type\\
)
\\>[
\t]*\\
(
[^
()
\n]*::[
\t]*\\
)
?
\
'
(
"\\<\\(\\(?:end[ \t]*\\)?type\\)\\>\\([^()\n]*::\\)?[ \t]*\\(\\sw+\\)"
\\
(
\\sw+\\
)
"
(
1
font-lock-keyword-face
)
(
3
font-lock-function-name-face
))
(
1
font-lock-keyword-face
)
(
3
font-lock-function-name-face
))
;; Other functions and declarations.
;; Other functions and declarations.
'
(
"
\\<\\
(
\\
(
?:end[
\t]*\\
)
?\\
(
program\\|module\\|function\\|\
'
(
"
\\<\\
(
\\
(
?:end[
\t]*\\
)
?\\
(
program\\|module\\|function\\|\
...
@@ -633,7 +632,7 @@ do\\([ \t]*while\\)?\\|select[ \t]*case\\|where\\|forall\\)\\)\\>"
...
@@ -633,7 +632,7 @@ do\\([ \t]*while\\)?\\|select[ \t]*case\\|where\\|forall\\)\\)\\>"
"Regexp matching the end of a TYPE, INTERFACE, BLOCK DATA section.")
"Regexp matching the end of a TYPE, INTERFACE, BLOCK DATA section.")
(defconst f90-type-def-re
(defconst f90-type-def-re
"\\<\\(type\\)\\>
[ \t]*
\\(?:[^()\n]*::[ \t]*\\
)?\\
(\\sw+\\)"
"\\<\\(type\\)\\>\\(?:[^()\n]*::
\\)?
[ \t]*\\(\\sw+\\)"
"Regexp matching the definition of a derived type.")
"Regexp matching the definition of a derived type.")
(defconst f90-no-break-re
(defconst f90-no-break-re
...
...
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