Mercurial > emacs

comparison lisp/progmodes/f90.el @ 46796:342b3e8fd75c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(f90-font-lock-keywords-1): Simplify `type' value a little. (f90-type-def-re): Simplify value a little.
author Glenn Morris <rgm@gnu.org>
date Sat, 03 Aug 2002 19:01:50 +0000
parents 3fcd9700f0fc
children c4e4658185e3
comparison
equal deleted inserted replaced
46795:305403dc91a3 46796:342b3e8fd75c
337 337
338 (defvar f90-font-lock-keywords-1 338 (defvar f90-font-lock-keywords-1
339 (list 339 (list
340 ;; Special highlighting of "module procedure". 340 ;; Special highlighting of "module procedure".
341 '("\\<\\(module[ \t]*procedure\\)\\>" (1 font-lock-keyword-face)) 341 '("\\<\\(module[ \t]*procedure\\)\\>" (1 font-lock-keyword-face))
342 ;; Highlight declaration of derived type. 342 ;; Highlight definition of derived type.
343 '("\\<\\(\\(?:end[ \t]*\\)?type\\)\\>[ \t]*\\([^()\n]*::[ \t]*\\)?\ 343 '("\\<\\(\\(?:end[ \t]*\\)?type\\)\\>\\([^()\n]*::\\)?[ \t]*\\(\\sw+\\)"
344 \\(\\sw+\\)"
345 (1 font-lock-keyword-face) (3 font-lock-function-name-face)) 344 (1 font-lock-keyword-face) (3 font-lock-function-name-face))
346 ;; Other functions and declarations. 345 ;; Other functions and declarations.
347 '("\\<\\(\\(?:end[ \t]*\\)?\\(program\\|module\\|function\\|\ 346 '("\\<\\(\\(?:end[ \t]*\\)?\\(program\\|module\\|function\\|\
348 subroutine\\)\\|use\\|call\\)\\>[ \t]*\\(\\sw+\\)?" 347 subroutine\\)\\|use\\|call\\)\\>[ \t]*\\(\\sw+\\)?"
349 (1 font-lock-keyword-face) (3 font-lock-function-name-face nil t)) 348 (1 font-lock-keyword-face) (3 font-lock-function-name-face nil t))
631 (defconst f90-end-type-re 630 (defconst f90-end-type-re
632 "end[ \t]*\\(type\\|interface\\|block[ \t]*data\\)\\>" 631 "end[ \t]*\\(type\\|interface\\|block[ \t]*data\\)\\>"
633 "Regexp matching the end of a TYPE, INTERFACE, BLOCK DATA section.") 632 "Regexp matching the end of a TYPE, INTERFACE, BLOCK DATA section.")
634 633
635 (defconst f90-type-def-re 634 (defconst f90-type-def-re
636 "\\<\\(type\\)\\>[ \t]*\\(?:[^()\n]*::[ \t]*\\)?\\(\\sw+\\)" 635 "\\<\\(type\\)\\>\\(?:[^()\n]*::\\)?[ \t]*\\(\\sw+\\)"
637 "Regexp matching the definition of a derived type.") 636 "Regexp matching the definition of a derived type.")
638 637
639 (defconst f90-no-break-re 638 (defconst f90-no-break-re
640 (regexp-opt '("**" "//" "=>") 'paren) 639 (regexp-opt '("**" "//" "=>") 'paren)
641 "Regexp specifying where not to break lines when filling.") 640 "Regexp specifying where not to break lines when filling.")