changeset 23861:d2ffab783280

(fortran-font-lock-keywords-1): Warp forward-sexp in condition-case.

--- 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