/[emacs]/emacs/lisp/progmodes/f90.el
ViewVC logotype

Diff of /emacs/lisp/progmodes/f90.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.80 by gm, Mon Apr 11 15:23:20 2005 UTC revision 1.81 by gm, Sun Apr 24 19:42:28 2005 UTC
# Line 1109  Does not check type and subprogram inden Line 1109  Does not check type and subprogram inden
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.

Legend:
Removed from v.1.80  
changed lines
  Added in v.1.81

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26