From: Richard M. Stallman <rms@gnu.org>
Date: Fri, 7 Dec 2001 03:33:39 +0000 (+0000)
Subject: (f90-break-line): Use (newline 1) to insert newlines.
X-Git-Tag: ttn-vms-21-2-B4~17880
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f00d330457b37733ab98886bf3354c9145ab1fbb;p=emacs.git

(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 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))