(f90-break-line): Use (newline 1) to insert newlines.

(bug-f90-mode): Variable deleted.

diff --git a/lisp/progmodes/f90.el b/lisp/progmodes/f90.el
index 6dbd0d2c334eb0d83159ae0896d742ca9b0cae89..1ad6ffeef209ab5fae954cde1792def149190919 100644 (file)
--- a/lisp/progmodes/f90.el
+++ b/lisp/progmodes/f90.el
@@ -143,9 +143,6 @@
 
 ;;; Code:
 
-(defconst bug-f90-mode "T.Einarsson@clab.ericsson.se"
-  "Address of mailing list for F90 mode bugs.")
-
 ;; User options
 
 (defgroup f90 nil
@@ -889,8 +886,6 @@ 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))
   (setq f90-startup-message nil))
 \f
 ;; inline-functions
@@ -1472,14 +1467,14 @@ If run in the middle of a line, the line is not broken."
   (interactive)
   (let (ctype)
     (cond ((f90-in-string)
-          (insert "&") (newline) (insert "&"))
+          (insert "&") (newline 1) (insert "&"))
          ((f90-in-comment)
           (setq ctype (f90-get-present-comment-type))
-          (newline)
+          (newline 1)
           (insert ctype))
          (t (insert "&")
             (if (not no-update) (f90-update-line))
-            (newline)
+            (newline 1)
             (if f90-beginning-ampersand (insert "&")))))
   (f90-indent-line))