mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-23 07:19:15 +00:00
Code Issues Releases Activity

(f90-calculate-indent): Fix treatment of first statement in buffer

Browse Source 
(broken by 2004-11-24 change).
This commit is contained in:
Glenn Morris 2005-04-24 19:42:28 +00:00
parent 2538808fd8
commit b78cbdf785
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lisp/progmodes/f90.el
View File

@ -1109,9 +1109,15 @@ Does not check type and subprogram indentation."
(let (icol cont (case-fold-search t) (pnt (point)))
(save-excursion
(if (not (f90-previous-statement))
;; First statement in buffer.
;; 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-next-statement)
;; 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.