diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2002-03-13 16:42:47 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2002-03-13 16:42:47 +0000 |
| commit | 894dc7e75d5298dbad72ca8307a93bbc6f89b16b (patch) | |
| tree | 8f5549261304683212159444f3ea01a288903dae /lisp/progmodes/fortran.el | |
| parent | ff451e174b03114fd012e054cfd6771c76db3a9d (diff) | |
| download | emacs-894dc7e75d5298dbad72ca8307a93bbc6f89b16b.tar.gz | |
(fortran-split-line): Make it work with any `!' comment as well.
Diffstat (limited to 'lisp/progmodes/fortran.el')
| -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'." (interactive) (delete-horizontal-space) (if (save-excursion - (beginning-of-line) - (looking-at fortran-comment-line-start-skip)) + (let ((pos (point))) + (beginning-of-line) + (and (fortran-find-comment-start-skip 'all) + (< (match-beginning 0) pos)))) (insert ?\n (match-string 0)) (if indent-tabs-mode (insert ?\n ?\t (fortran-numerical-continuation-char)) |