Mercurial > emacs
diff lisp/progmodes/fortran.el @ 23861:d2ffab783280
(fortran-font-lock-keywords-1): Warp
forward-sexp in condition-case.
author | Dave Love <fx@gnu.org> |
---|---|
date | Fri, 11 Dec 1998 17:40:18 +0000 |
parents | e494267843f7 |
children | c41f8acc111c |
line wrap: on
line diff
--- a/lisp/progmodes/fortran.el Thu Dec 10 13:37:02 1998 +0000 +++ b/lisp/progmodes/fortran.el Fri Dec 11 17:40:18 1998 +0000 @@ -283,8 +283,9 @@ ; (mapcar (lambda (x) (concat "end[ \t]*" x)) structured-types) ; structured-types ; other-types)))) + ;; Fixme: ;; Derived from the above, changing the escaped `[ \t]*'s back. - ;; Should be done with a `replace all in string' function... + ;; Should be done with a `replace all in string' function at compile time... "byte\\|c\\(haracter\\|om\\(mon\\|plex\\)\\)\\|d\\(ata\\|imension\\|ouble[ \t]*\\(complex\\|precision\\)\\)\\|e\\(nd[ \t]*\\(map\\|structure\\|union\\)\\|quivalence\\|xternal\\)\\|i\\(mplicit[ \t]*\\(byte\\|c\\(haracter\\|omplex\\)\\|double[ \t]*\\(complex\\|precision\\)\\|integer\\|logical\\|none\\|real\\)\\|nt\\(eger\\|rinsic\\)\\)\\|logical\\|map\\|none\\|parameter\\|re\\(al\\|cord\\)\\|s\\(ave\\|tructure\\)\\|union") (fortran-keywords (eval-when-compile @@ -352,7 +353,10 @@ ;; Fontify each declaration item (or just the /.../ block name). '(font-lock-match-c-style-declaration-item-and-skip-to-next ;; Start after any *(...) expression. - (and (match-beginning 15) (forward-sexp)) + (and (match-beginning 15) + (condition-case nil + (forward-sexp) + (error nil))) ;; No need to clean up. nil ;; Fontify as a variable name, functions are