diff options
Diffstat (limited to 'lisp/progmodes')
| -rw-r--r-- | lisp/progmodes/f90.el | 18 |
1 files changed, 11 insertions, 7 deletions
diff --git a/lisp/progmodes/f90.el b/lisp/progmodes/f90.el index 5b34e8506b3..097f0bcba6b 100644 --- a/lisp/progmodes/f90.el +++ b/lisp/progmodes/f90.el | |||
| @@ -1624,13 +1624,17 @@ Update keyword case first." | |||
| 1624 | ;; position is beyond fill-column. | 1624 | ;; position is beyond fill-column. |
| 1625 | ;; Will not break **, //, or => (as specified by f90-no-break-re). | 1625 | ;; Will not break **, //, or => (as specified by f90-no-break-re). |
| 1626 | (f90-update-line) | 1626 | (f90-update-line) |
| 1627 | (while (> (current-column) fill-column) | 1627 | ;; Need this for `f90-electric-insert' and other f90- callers. |
| 1628 | (let ((pos-mark (point-marker))) | 1628 | (unless (and (boundp 'comment-auto-fill-only-comments) |
| 1629 | (move-to-column fill-column) | 1629 | comment-auto-fill-only-comments |
| 1630 | (or (f90-in-string) (f90-find-breakpoint)) | 1630 | (not (f90-in-comment))) |
| 1631 | (f90-break-line) | 1631 | (while (> (current-column) fill-column) |
| 1632 | (goto-char pos-mark) | 1632 | (let ((pos-mark (point-marker))) |
| 1633 | (set-marker pos-mark nil)))) | 1633 | (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))))) | ||
| 1634 | 1638 | ||
| 1635 | 1639 | ||
| 1636 | (defun f90-join-lines () | 1640 | (defun f90-join-lines () |