855 |
"Return (\"do\" NAME) if a do statement starts after point. |
"Return (\"do\" NAME) if a do statement starts after point. |
856 |
NAME is nil if the statement has no label." |
NAME is nil if the statement has no label." |
857 |
(if (looking-at "\\(\\(\\sw+\\)[ \t]*:\\)?[ \t]*\\(do\\)\\>") |
(if (looking-at "\\(\\(\\sw+\\)[ \t]*:\\)?[ \t]*\\(do\\)\\>") |
858 |
(list (match-string 3) (match-string 2))) |
(list (match-string 3) (match-string 2)))) |
859 |
|
|
860 |
(defsubst f90-looking-at-select-case () |
(defsubst f90-looking-at-select-case () |
861 |
"Return (\"select\" NAME) if a select-case statement starts after point. |
"Return (\"select\" NAME) if a select-case statement starts after point. |
1519 |
(forward-char (if (looking-at f90-no-break-re) 2 1)) |
(forward-char (if (looking-at f90-no-break-re) 2 1)) |
1520 |
(backward-char) |
(backward-char) |
1521 |
(or (looking-at f90-no-break-re) |
(or (looking-at f90-no-break-re) |
1522 |
(forward-char))))) |
(forward-char)))) |
1523 |
|
|
1524 |
(defun f90-do-auto-fill () |
(defun f90-do-auto-fill () |
1525 |
"Break line if non-white characters beyond `fill-column'. |
"Break line if non-white characters beyond `fill-column'. |