Index: emacs/lisp/progmodes/f90.el
diff -c emacs/lisp/progmodes/f90.el:1.80 emacs/lisp/progmodes/f90.el:1.81
*** emacs/lisp/progmodes/f90.el:1.80 Mon Apr 11 15:23:20 2005
--- emacs/lisp/progmodes/f90.el Sun Apr 24 19:42:28 2005
***************
*** 1109,1117 ****
(let (icol cont (case-fold-search t) (pnt (point)))
(save-excursion
(if (not (f90-previous-statement))
! ;; First statement in buffer.
(setq icol (if (save-excursion
! (f90-next-statement)
(f90-looking-at-program-block-start))
0
;; No explicit PROGRAM start statement.
--- 1109,1123 ----
(let (icol cont (case-fold-search t) (pnt (point)))
(save-excursion
(if (not (f90-previous-statement))
! ;; If f90-previous-statement returns nil, we must have been
! ;; called from on or before the first line of the first statement.
(setq icol (if (save-excursion
! ;; f90-previous-statement has moved us over
! ;; comment/blank lines, so we need to get
! ;; back to the first code statement.
! (when (looking-at "[ \t]*\\([!#]\\|$\\)")
! (f90-next-statement))
! (skip-chars-forward " \t0-9")
(f90-looking-at-program-block-start))
0
;; No explicit PROGRAM start statement.
_______________________________________________
Emacs-diffs mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/emacs-diffs
