(f90-break-line): Avoid infinite recursion

calling `newline'.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index baa45f323672c0f86e4747f5d94f1d947f162ccb..356a6f2cfa0006372b9f74c20c93e62d3671b64b 100644 (file)
--- 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 6dbd0d2c334eb0d83159ae0896d742ca9b0cae89..98fded9a099b24ba8f16c0bd5c8c928bc044e89a 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
@@ -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))