changeset 44825:82abaa8dbf18

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

--- a/lisp/progmodes/f90.el	Wed Apr 24 22:06:03 2002 +0000
+++ b/lisp/progmodes/f90.el	Wed Apr 24 22:13:45 2002 +0000
@@ -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 @@
   :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 @@
     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 @@
   (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 ()