[Emacs-diffs] Changes to emacs/lisp/progmodes/f90.el

[Glenn Morris]

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.