# HG changeset patch
# User Glenn Morris <rgm@gnu.org>
# Date 1192852392 0
# Node ID 7f51313e99f5acc5a1ecdbbfafb6145aa0c80ec4
# Parent  13362e3adf7c4b93c4fe00c0619056691b593a62
(f90-font-lock-keywords-2, f90-looking-at-type-like): Fix regexp typos.

diff -r 13362e3adf7c -r 7f51313e99f5 lisp/progmodes/f90.el
--- a/lisp/progmodes/f90.el	Sat Oct 20 02:21:09 2007 +0000
+++ b/lisp/progmodes/f90.el	Sat Oct 20 03:53:12 2007 +0000
@@ -371,7 +371,7 @@
    (list
     ;; Variable declarations (avoid the real function call).
     '("^[ \t0-9]*\\(real\\|integer\\|c\\(haracter\\|omplex\\)\\|\
-logical\\|double[ \t]*precision\\|*type[ \t]*(\\sw+)\\)\
+logical\\|double[ \t]*precision\\|type[ \t]*(\\sw+)\\)\
 \\(.*::\\|[ \t]*(.*)\\)?\\([^&!\n]*\\)"
       (1 font-lock-type-face t) (4 font-lock-variable-name-face t))
     ;; do, if, select, where, and forall constructs.
@@ -963,7 +963,7 @@
   (cond
    ((looking-at f90-type-def-re)
     (list (match-string 1) (match-string 2)))
-   ((looking-at "\\(interface\\|block[\t]*data\\)\\>")
+   ((looking-at "\\(interface\\|block[ \t]*data\\)\\>")
     (list (match-string 1) nil))))
 
 (defsubst f90-looking-at-program-block-start ()