844 |
(interactive) |
(interactive) |
845 |
(delete-horizontal-space) |
(delete-horizontal-space) |
846 |
(if (save-excursion |
(if (save-excursion |
847 |
(beginning-of-line) |
(let ((pos (point))) |
848 |
(looking-at fortran-comment-line-start-skip)) |
(beginning-of-line) |
849 |
|
(and (fortran-find-comment-start-skip 'all) |
850 |
|
(< (match-beginning 0) pos)))) |
851 |
(insert ?\n (match-string 0)) |
(insert ?\n (match-string 0)) |
852 |
(if indent-tabs-mode |
(if indent-tabs-mode |
853 |
(insert ?\n ?\t (fortran-numerical-continuation-char)) |
(insert ?\n ?\t (fortran-numerical-continuation-char)) |