diff options
| author | Stefan Monnier | 2002-03-13 16:42:47 +0000 |
|---|---|---|
| committer | Stefan Monnier | 2002-03-13 16:42:47 +0000 |
| commit | 894dc7e75d5298dbad72ca8307a93bbc6f89b16b (patch) | |
| tree | 8f5549261304683212159444f3ea01a288903dae | |
| parent | ff451e174b03114fd012e054cfd6771c76db3a9d (diff) | |
| download | emacs-894dc7e75d5298dbad72ca8307a93bbc6f89b16b.tar.gz emacs-894dc7e75d5298dbad72ca8307a93bbc6f89b16b.zip | |
(fortran-split-line): Make it work with any `!' comment as well.
| -rw-r--r-- | lisp/progmodes/fortran.el | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lisp/progmodes/fortran.el b/lisp/progmodes/fortran.el index 2ef875e1fe3..8d4d0131180 100644 --- a/lisp/progmodes/fortran.el +++ b/lisp/progmodes/fortran.el | |||
| @@ -844,8 +844,10 @@ See also `fortran-window-create'." | |||
| 844 | (interactive) | 844 | (interactive) |
| 845 | (delete-horizontal-space) | 845 | (delete-horizontal-space) |
| 846 | (if (save-excursion | 846 | (if (save-excursion |
| 847 | (beginning-of-line) | 847 | (let ((pos (point))) |
| 848 | (looking-at fortran-comment-line-start-skip)) | 848 | (beginning-of-line) |
| 849 | (and (fortran-find-comment-start-skip 'all) | ||
| 850 | (< (match-beginning 0) pos)))) | ||
| 849 | (insert ?\n (match-string 0)) | 851 | (insert ?\n (match-string 0)) |
| 850 | (if indent-tabs-mode | 852 | (if indent-tabs-mode |
| 851 | (insert ?\n ?\t (fortran-numerical-continuation-char)) | 853 | (insert ?\n ?\t (fortran-numerical-continuation-char)) |