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

(bug-f90-mode): Variable deleted.

1 files changed, 3 insertions, 8 deletions

diff --git a/lisp/progmodes/f90.el b/lisp/progmodes/f90.el
index 6dbd0d2c334..1ad6ffeef20 100644
--- 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))
 
 ;; 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))