mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-02 11:21:42 +00:00
Code Issues Releases Activity

(fortran-font-lock-keywords-1): Warp

Browse Source 
forward-sexp in condition-case.
This commit is contained in:
Dave Love 1998-12-11 17:40:18 +00:00
parent 7d2767808e
commit 645ff508dd
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lisp/progmodes/fortran.el
View File

@ -283,8 +283,9 @@ format style.")
; (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 @@ format style.")
;; 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