diff options
| author | Glenn Morris <rgm@gnu.org> | 2016-01-02 10:16:03 -0800 |
|---|---|---|
| committer | Glenn Morris <rgm@gnu.org> | 2016-01-02 10:16:03 -0800 |
| commit | c2e9e3dd33810b3a0e1dff1374c1112eaed351c5 (patch) | |
| tree | 8cb25eb49cfc6813c2ce56cb797e3c43474f282d | |
| parent | 8637f3d0fa8d2f7325313abd66edb072b1a69db7 (diff) | |
| download | emacs-c2e9e3dd33810b3a0e1dff1374c1112eaed351c5.tar.gz | |
* lisp/progmodes/fortran.el (fortran-make-syntax-propertize-function):
Explicitly ignore case. (Bug#22262)
| -rw-r--r-- | lisp/progmodes/fortran.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/progmodes/fortran.el b/lisp/progmodes/fortran.el index 82e81b23f50..bd08d3fd16d 100644 --- a/lisp/progmodes/fortran.el +++ b/lisp/progmodes/fortran.el @@ -496,12 +496,12 @@ This is used to fontify fixed-format Fortran comments." ;; worth the trouble (about 0.5% of slow down). (eval ;I hate `eval', but it's hard to avoid it here. `(syntax-propertize-rules - ("^[cd\\*]" (0 "<")) + ("^[CcDd\\*]" (0 "<")) ;; We mark all chars after line-length as "comment-start", rather than ;; just the first one. This is so that a closing ' that's past the ;; line-length will indeed be ignored (and will result in a string that ;; leaks into subsequent lines). - ((format "^[^cd\\*\t\n].\\{%d\\}\\(.+\\)" (1- line-length)) + ((format "^[^CcDd\\*\t\n].\\{%d\\}\\(.+\\)" (1- line-length)) (1 "<"))))) (defvar fortran-font-lock-keywords fortran-font-lock-keywords-1 |