3 |
;; Copyright (C) 1995, 1996, 1997, 2000 Free Software Foundation, Inc. |
;; Copyright (C) 1995, 1996, 1997, 2000 Free Software Foundation, Inc. |
4 |
|
|
5 |
;; Author: Torbj\"orn Einarsson <Torbjorn.Einarsson@era.ericsson.se> |
;; Author: Torbj\"orn Einarsson <Torbjorn.Einarsson@era.ericsson.se> |
6 |
;; Maintainer: Dave Love <fx@gnu.org> |
;; Maintainer: Glenn Morris <gmorris@ast.cam.ac.uk> |
7 |
;; Keywords: fortran, f90, languages |
;; Keywords: fortran, f90, languages |
8 |
|
|
9 |
;; This file is part of GNU Emacs. |
;; This file is part of GNU Emacs. |
874 |
|
|
875 |
(defsubst f90-line-continued () |
(defsubst f90-line-continued () |
876 |
(save-excursion |
(save-excursion |
877 |
|
(beginning-of-line) |
878 |
|
(while (and (looking-at "[ \t]*\\(!\\|$\\)") (zerop (forward-line -1)))) |
879 |
(let ((bol (f90-get-beg-of-line))) |
(let ((bol (f90-get-beg-of-line))) |
880 |
(end-of-line) |
(end-of-line) |
881 |
(while (f90-in-comment) |
(while (f90-in-comment) |
996 |
(looking-at "\\(module\\)[ \t]+\\(\\sw+\\)\\>")) |
(looking-at "\\(module\\)[ \t]+\\(\\sw+\\)\\>")) |
997 |
(list (f90-match-piece 1) (f90-match-piece 2))) |
(list (f90-match-piece 1) (f90-match-piece 2))) |
998 |
((and (not (looking-at "end[ \t]*\\(function\\|subroutine\\)")) |
((and (not (looking-at "end[ \t]*\\(function\\|subroutine\\)")) |
999 |
(looking-at "[^!\"\&\n]*\\(function\\|subroutine\\)[ \t]+\\(\\sw+\\)")) |
(looking-at "[^!'\"\&\n]*\\(function\\|subroutine\\)[ \t]+\\(\\sw+\\)")) |
1000 |
(list (f90-match-piece 1) (f90-match-piece 2))))) |
(list (f90-match-piece 1) (f90-match-piece 2))))) |
1001 |
|
|
1002 |
(defsubst f90-looking-at-program-block-end () |
(defsubst f90-looking-at-program-block-end () |