1109 |
(let (icol cont (case-fold-search t) (pnt (point))) |
(let (icol cont (case-fold-search t) (pnt (point))) |
1110 |
(save-excursion |
(save-excursion |
1111 |
(if (not (f90-previous-statement)) |
(if (not (f90-previous-statement)) |
1112 |
;; First statement in buffer. |
;; If f90-previous-statement returns nil, we must have been |
1113 |
|
;; called from on or before the first line of the first statement. |
1114 |
(setq icol (if (save-excursion |
(setq icol (if (save-excursion |
1115 |
(f90-next-statement) |
;; f90-previous-statement has moved us over |
1116 |
|
;; comment/blank lines, so we need to get |
1117 |
|
;; back to the first code statement. |
1118 |
|
(when (looking-at "[ \t]*\\([!#]\\|$\\)") |
1119 |
|
(f90-next-statement)) |
1120 |
|
(skip-chars-forward " \t0-9") |
1121 |
(f90-looking-at-program-block-start)) |
(f90-looking-at-program-block-start)) |
1122 |
0 |
0 |
1123 |
;; No explicit PROGRAM start statement. |
;; No explicit PROGRAM start statement. |