Mercurial > emacs
changeset 79158:6a30435bc190
(f90-font-lock-keywords-2, f90-looking-at-type-like): Fix regexp typos.
| author | Glenn Morris <rgm@gnu.org> |
|---|---|
| date | Sat, 20 Oct 2007 03:52:33 +0000 |
| parents | 7bb8a742f977 |
| children | a4b157788804 |
| files | lisp/progmodes/f90.el |
| diffstat | 1 files changed, 2 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/progmodes/f90.el Sat Oct 20 02:22:19 2007 +0000 +++ b/lisp/progmodes/f90.el Sat Oct 20 03:52:33 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 ()