Mercurial > emacs

comparison lisp/progmodes/fortran.el @ 84372:536831328305

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(fortran-mode): Set font-lock-syntactic-keywords via font-lock-defaults.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Fri, 07 Sep 2007 15:07:13 +0000
parents e5a68f18fcb9
children b6cf194b9eb1
comparison
equal deleted inserted replaced
84371:5ee0e4e08f91 84372:536831328305
54 ;; second in column 6. 54 ;; second in column 6.
55 ;; * Support any other extensions to f77 grokked by GNU Fortran I've missed. 55 ;; * Support any other extensions to f77 grokked by GNU Fortran I've missed.
56 56
57 ;; silence compiler 57 ;; silence compiler
58 (defvar dabbrev-case-fold-search) 58 (defvar dabbrev-case-fold-search)
59 (defvar font-lock-syntactic-keywords)
60 (defvar gud-find-expr-function) 59 (defvar gud-find-expr-function)
61 (defvar imenu-case-fold-search) 60 (defvar imenu-case-fold-search)
62 (defvar imenu-syntax-alist) 61 (defvar imenu-syntax-alist)
63 62
64 63
149 148
150 ;; This used to match preprocessor lines too, but that messes up 149 ;; This used to match preprocessor lines too, but that messes up
151 ;; filling and doesn't seem to be necessary. 150 ;; filling and doesn't seem to be necessary.
152 (defcustom fortran-comment-line-start-skip 151 (defcustom fortran-comment-line-start-skip
153 "^[CcDd*!]\\(\\([^ \t\n]\\)\\2+\\)?[ \t]*" 152 "^[CcDd*!]\\(\\([^ \t\n]\\)\\2+\\)?[ \t]*"
154 "*Regexp to match the start of a full-line comment." 153 "Regexp to match the start of a full-line comment."
155 :version "21.1" 154 :version "21.1"
156 :type 'regexp 155 :type 'regexp
157 :group 'fortran-comment) 156 :group 'fortran-comment)
158 157
159 (defcustom fortran-directive-re 158 (defcustom fortran-directive-re
825 fortran-font-lock-keywords-1 824 fortran-font-lock-keywords-1
826 fortran-font-lock-keywords-2 825 fortran-font-lock-keywords-2
827 fortran-font-lock-keywords-3 826 fortran-font-lock-keywords-3
828 fortran-font-lock-keywords-4) 827 fortran-font-lock-keywords-4)
829 nil t ((?/ . "$/") ("_$" . "w")) 828 nil t ((?/ . "$/") ("_$" . "w"))
830 fortran-beginning-of-subprogram)) 829 fortran-beginning-of-subprogram
831 (set (make-local-variable 'font-lock-syntactic-keywords) 830 (font-lock-syntactic-keywords
832 (fortran-font-lock-syntactic-keywords)) 831 . (fortran-font-lock-syntactic-keywords))))
833 (set (make-local-variable 'imenu-case-fold-search) t) 832 (set (make-local-variable 'imenu-case-fold-search) t)
834 (set (make-local-variable 'imenu-generic-expression) 833 (set (make-local-variable 'imenu-generic-expression)
835 fortran-imenu-generic-expression) 834 fortran-imenu-generic-expression)
836 (set (make-local-variable 'imenu-syntax-alist) '(("_$" . "w"))) 835 (set (make-local-variable 'imenu-syntax-alist) '(("_$" . "w")))
837 (set (make-local-variable 'beginning-of-defun-function) 836 (set (make-local-variable 'beginning-of-defun-function)