From f42fc119bc43ac1e902c530eaf3f88f49de8be6c Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Sat, 20 Oct 2007 03:53:59 +0000 Subject: [PATCH] (f90-font-lock-keywords-2, f90-looking-at-type-like): Fix regexp typos. --- lisp/ChangeLog | 5 +++++ lisp/progmodes/f90.el | 4 ++-- 2 files changed, 7 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index a73aec73ae2..9d440b68c1e 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2007-10-20 Glenn Morris + + * progmodes/f90.el (f90-font-lock-keywords-2) + (f90-looking-at-type-like): Fix regexp typos. + 2007-10-19 Juanma Barranquero * bs.el (bs-mode): Add mode name (accidentally left out diff --git a/lisp/progmodes/f90.el b/lisp/progmodes/f90.el index 6c704916c65..302917e2769 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 () -- 2.39.2