1624 |
;; position is beyond fill-column. |
;; position is beyond fill-column. |
1625 |
;; Will not break **, //, or => (as specified by f90-no-break-re). |
;; Will not break **, //, or => (as specified by f90-no-break-re). |
1626 |
(f90-update-line) |
(f90-update-line) |
1627 |
(while (> (current-column) fill-column) |
;; Need this for `f90-electric-insert' and other f90- callers. |
1628 |
(let ((pos-mark (point-marker))) |
(unless (and (boundp 'comment-auto-fill-only-comments) |
1629 |
(move-to-column fill-column) |
comment-auto-fill-only-comments |
1630 |
(or (f90-in-string) (f90-find-breakpoint)) |
(not (f90-in-comment))) |
1631 |
(f90-break-line) |
(while (> (current-column) fill-column) |
1632 |
(goto-char pos-mark) |
(let ((pos-mark (point-marker))) |
1633 |
(set-marker pos-mark nil)))) |
(move-to-column fill-column) |
1634 |
|
(or (f90-in-string) (f90-find-breakpoint)) |
1635 |
|
(f90-break-line) |
1636 |
|
(goto-char pos-mark) |
1637 |
|
(set-marker pos-mark nil))))) |
1638 |
|
|
1639 |
|
|
1640 |
(defun f90-join-lines () |
(defun f90-join-lines () |