(f90-font-lock-keywords-2, f90-looking-at-type-like): Fix regexp typos.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index a73aec73ae2c6bba28393bcc4e63b0837e3270cc..9d440b68c1e949d4ead88c913c8bdd881dbfad58 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2007-10-20  Glenn Morris  <rgm@gnu.org>
+
+       * progmodes/f90.el (f90-font-lock-keywords-2)
+       (f90-looking-at-type-like): Fix regexp typos.
+
 2007-10-19  Juanma Barranquero  <lekktu@gmail.com>
 
        * bs.el (bs-mode): Add mode name (accidentally left out

diff --git a/lisp/progmodes/f90.el b/lisp/progmodes/f90.el
index 6c704916c651075227600f144eba9666ce5f076f..302917e276989610e11aa6e6e3cf01a84f43076c 100644 (file)
--- a/lisp/progmodes/f90.el
+++ b/lisp/progmodes/f90.el
@@ -371,7 +371,7 @@ subroutine\\)\\|use\\|call\\)\\>[ \t]*\\(\\sw+\\)?"
    (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 @@ NAME is non-nil only for type."
   (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 ()