Mercurial > emacs

comparison lisp/progmodes/f90.el @ 85471:7f51313e99f5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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:53:12 +0000
parents 32ed8aa23e1c
children 309e01535a04
comparison
equal deleted inserted replaced
85470:13362e3adf7c 85471:7f51313e99f5
369 (append 369 (append
370 f90-font-lock-keywords-1 370 f90-font-lock-keywords-1
371 (list 371 (list
372 ;; Variable declarations (avoid the real function call). 372 ;; Variable declarations (avoid the real function call).
373 '("^[ \t0-9]*\\(real\\|integer\\|c\\(haracter\\|omplex\\)\\|\ 373 '("^[ \t0-9]*\\(real\\|integer\\|c\\(haracter\\|omplex\\)\\|\
374 logical\\|double[ \t]*precision\\|*type[ \t]*(\\sw+)\\)\ 374 logical\\|double[ \t]*precision\\|type[ \t]*(\\sw+)\\)\
375 \\(.*::\\|[ \t]*(.*)\\)?\\([^&!\n]*\\)" 375 \\(.*::\\|[ \t]*(.*)\\)?\\([^&!\n]*\\)"
376 (1 font-lock-type-face t) (4 font-lock-variable-name-face t)) 376 (1 font-lock-type-face t) (4 font-lock-variable-name-face t))
377 ;; do, if, select, where, and forall constructs. 377 ;; do, if, select, where, and forall constructs.
378 '("\\<\\(end[ \t]*\\(do\\|if\\|select\\|forall\\|where\\)\\)\\>\ 378 '("\\<\\(end[ \t]*\\(do\\|if\\|select\\|forall\\|where\\)\\)\\>\
379 \\([ \t]+\\(\\sw+\\)\\)?" 379 \\([ \t]+\\(\\sw+\\)\\)?"
961 "Return (KIND NAME) if a type/interface/block-data block starts after point. 961 "Return (KIND NAME) if a type/interface/block-data block starts after point.
962 NAME is non-nil only for type." 962 NAME is non-nil only for type."
963 (cond 963 (cond
964 ((looking-at f90-type-def-re) 964 ((looking-at f90-type-def-re)
965 (list (match-string 1) (match-string 2))) 965 (list (match-string 1) (match-string 2)))
966 ((looking-at "\\(interface\\|block[\t]*data\\)\\>") 966 ((looking-at "\\(interface\\|block[ \t]*data\\)\\>")
967 (list (match-string 1) nil)))) 967 (list (match-string 1) nil))))
968 968
969 (defsubst f90-looking-at-program-block-start () 969 (defsubst f90-looking-at-program-block-start ()
970 "Return (KIND NAME) if a program block with name NAME starts after point." 970 "Return (KIND NAME) if a program block with name NAME starts after point."
971 ;;;NAME is nil for an un-named main PROGRAM block." 971 ;;;NAME is nil for an un-named main PROGRAM block."