Commit 48548fd5 authored by Glenn Morris's avatar Glenn Morris
Browse files

(f90-startup-message): Obsolete variable removed.

parent 6734e165
......@@ -89,7 +89,6 @@
;; f90-smart-end 'blink
;; f90-auto-keyword-case nil
;; f90-leave-line-no nil
;; f90-startup-message t
;; indent-tabs-mode nil
;; f90-font-lock-keywords f90-font-lock-keywords-2
;; )
......@@ -230,11 +229,6 @@ whether to blink the matching beginning."
:type 'boolean
:group 'f90)
(defcustom f90-startup-message t
"*Non-nil displays a startup message when F90 mode is first called."
:type 'boolean
:group 'f90)
(defconst f90-keywords-re
(regexp-opt '("allocatable" "allocate" "assign" "assignment" "backspace"
"block" "call" "case" "character" "close" "common" "complex"
......@@ -793,8 +787,6 @@ Variables controlling indentation style and extra features:
The possibilities are 'downcase-word, 'upcase-word, 'capitalize-word.
f90-leave-line-no
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)
f90-keywords-re
List of keywords used for highlighting/upcase-keywords etc.
......@@ -848,8 +840,7 @@ with no args, if that value is non-nil."
(setq imenu-generic-expression f90-imenu-generic-expression)
(set (make-local-variable 'add-log-current-defun-function)
#'f90-current-defun)
(run-hooks 'f90-mode-hook)
(setq f90-startup-message nil))
(run-hooks 'f90-mode-hook))
;; inline-functions
(defsubst f90-in-string ()
......
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