[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/progmodes/f90.el
From: |
Glenn Morris |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/progmodes/f90.el |
Date: |
Sun, 24 Apr 2005 15:42:28 -0400 |
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.