Mercurial > emacs
comparison lisp/progmodes/fortran.el @ 12814:33e141d3250f
Tweak fortran-font-lock-keywords-1.
| author | Simon Marshall <simon@gnu.org> |
|---|---|
| date | Thu, 10 Aug 1995 14:04:25 +0000 |
| parents | f4b2913b7f58 |
| children | 73b7a6396cbe |
comparison
equal
deleted
inserted
replaced
| 12813:c9ed95ec05b6 | 12814:33e141d3250f |
|---|---|
| 193 (list | 193 (list |
| 194 ;; | 194 ;; |
| 195 ;; Fontify comments and strings. We assume that strings cannot be quoted. | 195 ;; Fontify comments and strings. We assume that strings cannot be quoted. |
| 196 (cons (concat "^[" comment-chars "].*") 'font-lock-comment-face) | 196 (cons (concat "^[" comment-chars "].*") 'font-lock-comment-face) |
| 197 '(fortran-match-!-comment . font-lock-comment-face) | 197 '(fortran-match-!-comment . font-lock-comment-face) |
| 198 (list (concat "^[^" comment-chars "\t]" (make-string 71 ?.) "\\(.*\\)") | 198 (list (concat "^[^" comment-chars "\t\n]" (make-string 71 ?.) "\\(.*\\)") |
| 199 '(1 font-lock-comment-face)) | 199 '(1 font-lock-comment-face)) |
| 200 '("'[^'\n]*'?" . font-lock-string-face) | 200 '("'[^'\n]*'?" . font-lock-string-face) |
| 201 ;; | 201 ;; |
| 202 ;; Program, subroutine and function declarations, plus calls. | 202 ;; Program, subroutine and function declarations, plus calls. |
| 203 (list (concat "\\<\\(block[ \t]*data\\|call\\|entry\\|function\\|" | 203 (list (concat "\\<\\(block[ \t]*data\\|call\\|entry\\|function\\|" |