Mercurial > emacs
changeset 10787:a5e881c047ce
Turn of syntax fontification by default.
It messes up when inside a comment done by the regexps (or v.v.).
| author | Simon Marshall <simon@gnu.org> |
|---|---|
| date | Mon, 20 Feb 1995 10:49:58 +0000 |
| parents | 353416feba10 |
| children | 61c7b37349d2 |
| files | lisp/progmodes/fortran.el |
| diffstat | 1 files changed, 8 insertions(+), 6 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/progmodes/fortran.el Mon Feb 20 09:39:26 1995 +0000 +++ b/lisp/progmodes/fortran.el Mon Feb 20 10:49:58 1995 +0000 @@ -183,14 +183,16 @@ ;; Comments are real pain in Fortran because there is no way to represent the ;; standard comment syntax in an Emacs syntax table (we can for VAX-style). ;; Therefore an unmatched quote in a standard comment will throw fontification -;; off on the wrong track. But to make it clear(er) to the programmer what is -;; happening, we don't override string fontification when fontifying, by the -;; keyword regexp, a standard comment. +;; off on the wrong track. To make it clear(er) to the programmer what is +;; happening, we could override string fontification when fontifying, by the +;; keyword regexp, a standard comment. But by default we turn off syntax +;; fontification, and we don't put `!' as a comment-in-any-column in the +;; regexp keywords as it would be recognised inside a string. (defconst fortran-font-lock-keywords-1 '(;; Fontify comments. -; ("^[Cc*].*$" 0 font-lock-comment-face t) - ("^[Cc*].*$" . font-lock-comment-face) +; ("^[Cc!*].*$" 0 font-lock-comment-face t) + ("^[Cc!*].*$" . font-lock-comment-face) ;; Program, subroutine and function declarations, plus calls. ("\\<\\(call\\|function\\|program\\|subroutine\\)\\>[ \t]*\\(\\sw+\\)?" (1 font-lock-keyword-face) (2 font-lock-function-name-face nil t))) @@ -420,7 +422,7 @@ (setq local-abbrev-table fortran-mode-abbrev-table) (set-syntax-table fortran-mode-syntax-table) (make-local-variable 'font-lock-defaults) - (setq font-lock-defaults '(fortran-font-lock-keywords nil t)) + (setq font-lock-defaults '(fortran-font-lock-keywords t t)) (make-local-variable 'fortran-break-before-delimiters) (setq fortran-break-before-delimiters t) (make-local-variable 'indent-line-function)