# HG changeset patch
# User Glenn Morris <rgm@gnu.org>
# Date 1020036968 0
# Node ID 9ffd61242f2f9bca039492f58fabbf9bcf843559
# Parent  14b7be04307c499c6b7911db90464c448811ff3d
(f90-font-lock-keywords-1, f90-font-lock-keywords-2): Fix highlighting of
various "type" forms.

diff -r 14b7be04307c -r 9ffd61242f2f lisp/progmodes/f90.el
--- a/lisp/progmodes/f90.el	Sun Apr 28 22:46:34 2002 +0000
+++ b/lisp/progmodes/f90.el	Sun Apr 28 23:36:08 2002 +0000
@@ -340,8 +340,8 @@
    ;; Special highlighting of "module procedure foo-list"
    '("\\<\\(module[ \t]*procedure\\)\\>" (1 font-lock-keyword-face))
    ;; Highlight definition of new type
-   '("\\<\\(type\\)[ \t]*\\(.*::[ \t]*\\|[ \t]+\\)\\(\\sw+\\)"
-     (1 font-lock-keyword-face) (3 font-lock-function-name-face))
+;;;   '("\\<\\(type\\)[ \t]*\\(.*::[ \t]*\\|[ \t]+\\)\\(\\sw+\\)"
+;;;     (1 font-lock-keyword-face) (3 font-lock-function-name-face))
    ;; Other functions and declarations.
    '("\\<\\(\\(?:end[ \t]*\\)?\\(program\\|module\\|function\\|subroutine\\|type\\)\\|use\\|call\\)\\>[ \t]*\\(\\sw+\\)?"
      (1 font-lock-keyword-face) (3 font-lock-function-name-face nil t))
@@ -353,7 +353,7 @@
       (list
        ;; Variable declarations (avoid the real function call)
        '("^[ \t0-9]*\\(real\\|integer\\|c\\(haracter\\|omplex\\)\\|logical\\|type[ \t]*(\\sw+)\\)\\(.*::\\|[ \t]*(.*)\\)?\\([^!\n]*\\)"
-	 (1 font-lock-type-face) (4 font-lock-variable-name-face))
+	 (1 font-lock-type-face t) (4 font-lock-variable-name-face))
        ;; do, if, select, where, and forall constructs
        '("\\<\\(end[ \t]*\\(do\\|if\\|select\\|forall\\|where\\)\\)\\>\\([ \t]+\\(\\sw+\\)\\)?"
 	 (1 font-lock-keyword-face) (3 font-lock-constant-face nil t))