Re: f90-mode - auto-fill and font-lock

[Stefan Monnier]

>>>>> "Glenn" == Glenn Morris <rgm22@_REMOVETHIS_cam.ac.uk> writes:
> (defun f90-match-real-declaration (limit)
>  "Match the declaration of a real variable, if this is a single line or 
> the first row in a continuation line." 
>  (if (or (eq (f90-present-statement-cont) 'single) 
>                 (eq (f90-present-statement-cont) 'begin))
>                 (re-search-forward
>                  "^[ \t0-9]*\\(real\\)\\(.*::\\|[ \t]*(.*)\\)?\\([^!\n]*\\)" 
> limit t)
>       ))
[...]
> '(f90-match-real-declaration
>     (1 font-lock-type-face) (3 font-lock-variable-name-face))

Does it really work ?
Note that this f90-match-real-declaration will not only be called
with point at the beginning of a line and LIMIT at its end.
It might be called with point at point-min and LIMIT at point-max.


        Stefan