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