Mercurial > emacs
changeset 84372:536831328305
(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 | 5ee0e4e08f91 |
| children | ac2caa9660e7 |
| files | lisp/ChangeLog lisp/progmodes/fortran.el |
| diffstat | 2 files changed, 7 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Fri Sep 07 15:04:09 2007 +0000 +++ b/lisp/ChangeLog Fri Sep 07 15:07:13 2007 +0000 @@ -1,5 +1,8 @@ 2007-09-07 Stefan Monnier <monnier@iro.umontreal.ca> + * progmodes/fortran.el (fortran-mode): Set font-lock-syntactic-keywords + via font-lock-defaults. + * emacs-lisp/bytecomp.el (byte-compile-log-file): Check major-mode via derived-mode-p.
--- a/lisp/progmodes/fortran.el Fri Sep 07 15:04:09 2007 +0000 +++ b/lisp/progmodes/fortran.el Fri Sep 07 15:07:13 2007 +0000 @@ -56,7 +56,6 @@ ;; silence compiler (defvar dabbrev-case-fold-search) -(defvar font-lock-syntactic-keywords) (defvar gud-find-expr-function) (defvar imenu-case-fold-search) (defvar imenu-syntax-alist) @@ -151,7 +150,7 @@ ;; filling and doesn't seem to be necessary. (defcustom fortran-comment-line-start-skip "^[CcDd*!]\\(\\([^ \t\n]\\)\\2+\\)?[ \t]*" - "*Regexp to match the start of a full-line comment." + "Regexp to match the start of a full-line comment." :version "21.1" :type 'regexp :group 'fortran-comment) @@ -827,9 +826,9 @@ fortran-font-lock-keywords-3 fortran-font-lock-keywords-4) nil t ((?/ . "$/") ("_$" . "w")) - fortran-beginning-of-subprogram)) - (set (make-local-variable 'font-lock-syntactic-keywords) - (fortran-font-lock-syntactic-keywords)) + fortran-beginning-of-subprogram + (font-lock-syntactic-keywords + . (fortran-font-lock-syntactic-keywords)))) (set (make-local-variable 'imenu-case-fold-search) t) (set (make-local-variable 'imenu-generic-expression) fortran-imenu-generic-expression)