From eb9f0295d0cd3b30c32350645e833cd13afeb144 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Sat, 3 Aug 2002 19:01:50 +0000 Subject: [PATCH] (f90-font-lock-keywords-1): Simplify `type' value a little. (f90-type-def-re): Simplify value a little. --- lisp/progmodes/f90.el | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) diff --git a/lisp/progmodes/f90.el b/lisp/progmodes/f90.el index 3c73fab604e..14386b065fb 100644 --- a/lisp/progmodes/f90.el +++ b/lisp/progmodes/f90.el @@ -339,9 +339,8 @@ The options are 'downcase-word, 'upcase-word, 'capitalize-word and nil." (list ;; Special highlighting of "module procedure". '("\\<\\(module[ \t]*procedure\\)\\>" (1 font-lock-keyword-face)) - ;; Highlight declaration of derived type. - '("\\<\\(\\(?:end[ \t]*\\)?type\\)\\>[ \t]*\\([^()\n]*::[ \t]*\\)?\ -\\(\\sw+\\)" + ;; Highlight definition of derived type. + '("\\<\\(\\(?:end[ \t]*\\)?type\\)\\>\\([^()\n]*::\\)?[ \t]*\\(\\sw+\\)" (1 font-lock-keyword-face) (3 font-lock-function-name-face)) ;; Other functions and declarations. '("\\<\\(\\(?:end[ \t]*\\)?\\(program\\|module\\|function\\|\ @@ -633,7 +632,7 @@ do\\([ \t]*while\\)?\\|select[ \t]*case\\|where\\|forall\\)\\)\\>" "Regexp matching the end of a TYPE, INTERFACE, BLOCK DATA section.") (defconst f90-type-def-re - "\\<\\(type\\)\\>[ \t]*\\(?:[^()\n]*::[ \t]*\\)?\\(\\sw+\\)" + "\\<\\(type\\)\\>\\(?:[^()\n]*::\\)?[ \t]*\\(\\sw+\\)" "Regexp matching the definition of a derived type.") (defconst f90-no-break-re -- 2.39.5