Mercurial > emacs

changeset 45972:50b1541ec981

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(f90-do-auto-fill): Make it respect `comment-auto-fill-only-comments'.
author Glenn Morris <rgm@gnu.org>
date Sun, 23 Jun 2002 15:43:11 +0000
parents b9d32c09048c
children 7a3fa4f329e7
files lisp/progmodes/f90.el
diffstat 1 files changed, 11 insertions(+), 7 deletions(-) [+]
line wrap: on
line diff
--- 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 ()