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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 8ea68f0da04cad86b7a14ce2d29b73dad9a91f5d..6d6ab0df8ebc9de9bbc7f6506ba58424bbe5158a 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--track-window-changes): Don't refresh the whole list.
@@ -514,15 +519,13 @@
        * net/eudc-hotlist.el (eudc-edit-hotlist):
        * net/eudc.el (eudc-display-records)
        (eudc-filter-duplicate-attributes)
-       (eudc-distribute-field-on-records, eudc-query-form)
-       (eudc-process-form):
+       (eudc-distribute-field-on-records, eudc-query-form, eudc-process-form):
        * net/eudcb-bbdb.el (eudc-bbdb-filter-non-matching-record)
        (eudc-bbdb-query-internal):
        * net/eudcb-ldap.el (eudc-ldap-simple-query-internal):
        * net/socks.el (socks-build-auth-list):
        * progmodes/cc-cmds.el (top level):
-       * progmodes/cc-styles.el (c-make-styles-buffer-local)
-       (c-set-style):
+       * progmodes/cc-styles.el (c-make-styles-buffer-local, c-set-style):
        * progmodes/cperl-mode.el (top level, cperl-imenu-addback)
        (cperl-write-tags, cperl-tags-treeify):
        * progmodes/ebnf-yac.el (ebnf-yac-token-table):
@@ -611,8 +614,8 @@
 
        * vc.el (vc-diff):
        (vc-diff-internal): Merge a patch by Juanma Barranquero.  Also,
-       emporarily disable the check for his edge case of
-       vc-diff (stopping it from grinding when callerd from $HOME), as
+       temporarily disable the check for his edge case of
+       vc-diff (stopping it from grinding when called from $HOME), as
        it's calling some brittle code in vc-hooks.el.
        (with-vc-properties): Fix evaluation time of a macro argument.
        * ediff-vers.el (ediff-vc-internal):

diff --git a/lisp/progmodes/f90.el b/lisp/progmodes/f90.el
index c7042fb1f671dfda3b9a7b31b1f5b38206244ed2..4b27fabb4c1b20f57d6c5dc4b4b568af97d9e417 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 ()