89 |
;; f90-smart-end 'blink |
;; f90-smart-end 'blink |
90 |
;; f90-auto-keyword-case nil |
;; f90-auto-keyword-case nil |
91 |
;; f90-leave-line-no nil |
;; f90-leave-line-no nil |
|
;; f90-startup-message t |
|
92 |
;; indent-tabs-mode nil |
;; indent-tabs-mode nil |
93 |
;; f90-font-lock-keywords f90-font-lock-keywords-2 |
;; f90-font-lock-keywords f90-font-lock-keywords-2 |
94 |
;; ) |
;; ) |
229 |
:type 'boolean |
:type 'boolean |
230 |
:group 'f90) |
:group 'f90) |
231 |
|
|
|
(defcustom f90-startup-message t |
|
|
"*Non-nil displays a startup message when F90 mode is first called." |
|
|
:type 'boolean |
|
|
:group 'f90) |
|
|
|
|
232 |
(defconst f90-keywords-re |
(defconst f90-keywords-re |
233 |
(regexp-opt '("allocatable" "allocate" "assign" "assignment" "backspace" |
(regexp-opt '("allocatable" "allocate" "assign" "assignment" "backspace" |
234 |
"block" "call" "case" "character" "close" "common" "complex" |
"block" "call" "case" "character" "close" "common" "complex" |
787 |
The possibilities are 'downcase-word, 'upcase-word, 'capitalize-word. |
The possibilities are 'downcase-word, 'upcase-word, 'capitalize-word. |
788 |
f90-leave-line-no |
f90-leave-line-no |
789 |
Do not left-justify line numbers. (default nil) |
Do not left-justify line numbers. (default nil) |
|
f90-startup-message |
|
|
Set to nil to inhibit message first time F90 mode is used. (default t) |
|
790 |
f90-keywords-re |
f90-keywords-re |
791 |
List of keywords used for highlighting/upcase-keywords etc. |
List of keywords used for highlighting/upcase-keywords etc. |
792 |
|
|
840 |
(setq imenu-generic-expression f90-imenu-generic-expression) |
(setq imenu-generic-expression f90-imenu-generic-expression) |
841 |
(set (make-local-variable 'add-log-current-defun-function) |
(set (make-local-variable 'add-log-current-defun-function) |
842 |
#'f90-current-defun) |
#'f90-current-defun) |
843 |
(run-hooks 'f90-mode-hook) |
(run-hooks 'f90-mode-hook)) |
|
(setq f90-startup-message nil)) |
|
844 |
|
|
845 |
;; inline-functions |
;; inline-functions |
846 |
(defsubst f90-in-string () |
(defsubst f90-in-string () |