# HG changeset patch
# User Glenn Morris <rgm@gnu.org>
# Date 1024846991 0
# Node ID 50b1541ec9818d2fbc74a4235ecf301ff8ef11f7
# Parent  b9d32c09048ca9b3b989caddea694d43951836f4
(f90-do-auto-fill): Make it respect `comment-auto-fill-only-comments'.

diff -r b9d32c09048c -r 50b1541ec981 lisp/progmodes/f90.el
--- a/lisp/progmodes/f90.el	Sat Jun 22 22:01:37 2002 +0000
+++ b/lisp/progmodes/f90.el	Sun Jun 23 15:43:11 2002 +0000
@@ -1624,13 +1624,17 @@
   ;; position is beyond fill-column.
   ;; Will not break **, //, or => (as specified by f90-no-break-re).
   (f90-update-line)
-  (while (> (current-column) fill-column)
-    (let ((pos-mark (point-marker)))
-      (move-to-column fill-column)
-      (or (f90-in-string) (f90-find-breakpoint))
-      (f90-break-line)
-      (goto-char pos-mark)
-      (set-marker pos-mark nil))))
+  ;; Need this for `f90-electric-insert' and other f90- callers.
+  (unless (and (boundp 'comment-auto-fill-only-comments)
+               comment-auto-fill-only-comments
+               (not (f90-in-comment)))
+    (while (> (current-column) fill-column)
+      (let ((pos-mark (point-marker)))
+        (move-to-column fill-column)
+        (or (f90-in-string) (f90-find-breakpoint))
+        (f90-break-line)
+        (goto-char pos-mark)
+        (set-marker pos-mark nil)))))
 
 
 (defun f90-join-lines ()