(f90-mode): Remove startup message.

2 files changed, 6 insertions, 2 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 73b80a55e2e..66d1d7133ba 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2001-02-01  Dave Love  <fx@gnu.org>
+
+        * progmodes/f90.el (f90-mode): Remove startup message.
+
 2001-02-01  Gerd Moellmann  <gerd@gnu.org>
 
         * startup.el (command-line): Fix code determining whether or not
diff --git a/lisp/progmodes/f90.el b/lisp/progmodes/f90.el
index 914f5e67305..6dbd0d2c334 100644
--- a/lisp/progmodes/f90.el
+++ b/lisp/progmodes/f90.el
@@ -889,8 +889,8 @@ with no args, if that value is non-nil."
   (set (make-local-variable 'add-log-current-defun-function)
        #'f90-current-defun)
   (run-hooks 'f90-mode-hook)
-  (if f90-startup-message
-      (message "Emacs F90 mode; please report bugs to %s" bug-f90-mode))
+;;   (if f90-startup-message
+;;       (message "Emacs F90 mode; please report bugs to %s" bug-f90-mode))
   (setq f90-startup-message nil))
 
 ;; inline-functions