Commit a227f163 authored by Stefan Monnier's avatar Stefan Monnier
Browse files

(fortran-mode): Set font-lock-syntactic-keywords via font-lock-defaults.

parent 5c7ffa04
2007-09-07 Stefan Monnier <monnier@iro.umontreal.ca> 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 * emacs-lisp/bytecomp.el (byte-compile-log-file): Check major-mode via
derived-mode-p. derived-mode-p.
......
...@@ -56,7 +56,6 @@ ...@@ -56,7 +56,6 @@
;; silence compiler ;; silence compiler
(defvar dabbrev-case-fold-search) (defvar dabbrev-case-fold-search)
(defvar font-lock-syntactic-keywords)
(defvar gud-find-expr-function) (defvar gud-find-expr-function)
(defvar imenu-case-fold-search) (defvar imenu-case-fold-search)
(defvar imenu-syntax-alist) (defvar imenu-syntax-alist)
...@@ -151,7 +150,7 @@ You might want to change this to \"*\", for instance." ...@@ -151,7 +150,7 @@ You might want to change this to \"*\", for instance."
;; filling and doesn't seem to be necessary. ;; filling and doesn't seem to be necessary.
(defcustom fortran-comment-line-start-skip (defcustom fortran-comment-line-start-skip
"^[CcDd*!]\\(\\([^ \t\n]\\)\\2+\\)?[ \t]*" "^[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" :version "21.1"
:type 'regexp :type 'regexp
:group 'fortran-comment) :group 'fortran-comment)
...@@ -827,9 +826,9 @@ with no args, if that value is non-nil." ...@@ -827,9 +826,9 @@ with no args, if that value is non-nil."
fortran-font-lock-keywords-3 fortran-font-lock-keywords-3
fortran-font-lock-keywords-4) fortran-font-lock-keywords-4)
nil t ((?/ . "$/") ("_$" . "w")) nil t ((?/ . "$/") ("_$" . "w"))
fortran-beginning-of-subprogram)) fortran-beginning-of-subprogram
(set (make-local-variable 'font-lock-syntactic-keywords) (font-lock-syntactic-keywords
(fortran-font-lock-syntactic-keywords)) . (fortran-font-lock-syntactic-keywords))))
(set (make-local-variable 'imenu-case-fold-search) t) (set (make-local-variable 'imenu-case-fold-search) t)
(set (make-local-variable 'imenu-generic-expression) (set (make-local-variable 'imenu-generic-expression)
fortran-imenu-generic-expression) fortran-imenu-generic-expression)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment