procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* lisp/progmodes/fortran.el (fortran-make-syntax-propertize-function):

Browse source 
Explicitly ignore case.  (Bug#22262)
This commit is contained in:
Glenn Morris 2016-01-02 10:16:03 -08:00
parent 8637f3d0fa
commit c2e9e3dd33
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lisp/progmodes/fortran.el
View file

@ -496,12 +496,12 @@ This is used to fontify fixed-format Fortran comments."
;; worth the trouble (about 0.5% of slow down). ;; worth the trouble (about 0.5% of slow down).
(eval ;I hate `eval', but it's hard to avoid it here. (eval ;I hate `eval', but it's hard to avoid it here.
`(syntax-propertize-rules `(syntax-propertize-rules
("^[cd\\*]" (0 "<")) ("^[CcDd\\*]" (0 "<"))
;; We mark all chars after line-length as "comment-start", rather than ;; 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 ;; 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 ;; line-length will indeed be ignored (and will result in a string that
;; leaks into subsequent lines). ;; leaks into subsequent lines).
((format "^[^cd\\*\t\n].\\{%d\\}\\(.+\\)" (1- line-length)) ((format "^[^CcDd\\*\t\n].\\{%d\\}\\(.+\\)" (1- line-length))
(1 "<"))))) (1 "<")))))
(defvar fortran-font-lock-keywords fortran-font-lock-keywords-1 (defvar fortran-font-lock-keywords fortran-font-lock-keywords-1