# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1016037767 0
# Node ID b13e662ea2b3f6ce776a75e6b80276293157ff0e
# Parent  e601e469e7a460833bf52964c0976cf7ea85a89b
(fortran-split-line): Make it work with any `!' comment as well.

diff -r e601e469e7a4 -r b13e662ea2b3 lisp/progmodes/fortran.el
--- a/lisp/progmodes/fortran.el	Wed Mar 13 16:33:56 2002 +0000
+++ b/lisp/progmodes/fortran.el	Wed Mar 13 16:42:47 2002 +0000
@@ -844,8 +844,10 @@
   (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))