diff options
| author | Glenn Morris <[email protected]> | 2007-10-20 03:53:59 +0000 |
|---|---|---|
| committer | Glenn Morris <[email protected]> | 2007-10-20 03:53:59 +0000 |
| commit | f42fc119bc43ac1e902c530eaf3f88f49de8be6c (patch) | |
| tree | 01e3d453dfb7c2817780a9cb090cd5af045370a3 /lisp/progmodes/f90.el | |
| parent | 5255e3ffc735b58bc314e2886b11e1b9ff489b22 (diff) | |
(f90-font-lock-keywords-2, f90-looking-at-type-like): Fix regexp typos.
Diffstat (limited to 'lisp/progmodes/f90.el')
| -rw-r--r-- | lisp/progmodes/f90.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/progmodes/f90.el b/lisp/progmodes/f90.el index 6c704916c6..302917e276 100644 --- 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 () |