# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1007696019 0
# Node ID a20c1a3fca7f38ae412ace98a844872303732488
# Parent  7423116b7ac3f86d5ef4d8564bf4d478dd92c7d4
(f90-break-line): Use (newline 1) to insert newlines.
(bug-f90-mode): Variable deleted.

diff -r 7423116b7ac3 -r a20c1a3fca7f lisp/progmodes/f90.el
--- a/lisp/progmodes/f90.el	Thu Dec 06 16:24:26 2001 +0000
+++ b/lisp/progmodes/f90.el	Fri Dec 07 03:33:39 2001 +0000
@@ -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 @@
   (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 @@
   (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))