From: Dave Love <fx@gnu.org>
Date: Tue, 18 Dec 2001 15:19:28 +0000 (+0000)
Subject: (f90-break-line): Avoid infinite recursion
X-Git-Tag: emacs-21.2~231
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=14ff05e0310250cbf085010e34cd93ef7f7c0279;p=emacs.git

(f90-break-line): Avoid infinite recursion
calling `newline'.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index baa45f32367..356a6f2cfa0 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2001-12-18  Dave Love  <fx@gnu.org>
+
+	* progmodes/f90.el (f90-break-line): Avoid infinite recursion
+	calling `newline'.
+
 2001-12-14  Andre Spiegel  <spiegel@gnu.org>
 
 	* vc-hooks.el (vc-checkout-model, vc-state, vc-workfile-version):
diff --git a/lisp/progmodes/f90.el b/lisp/progmodes/f90.el
index 6dbd0d2c334..98fded9a099 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
@@ -1472,14 +1469,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 "&\n&"))
 	  ((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))