Mercurial > emacs
changeset 18213:94f007fc6138
(f90-looking-at-where-or-forall): Recognize where/forall
only if it's a block, not a one-line statement.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Tue, 10 Jun 1997 18:04:01 +0000 |
| parents | 3864648e9b4f |
| children | 34593904dc4e |
| files | lisp/progmodes/f90.el |
| diffstat | 1 files changed, 3 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/progmodes/f90.el Tue Jun 10 17:58:43 1997 +0000 +++ b/lisp/progmodes/f90.el Tue Jun 10 18:04:01 1997 +0000 @@ -3,7 +3,7 @@ ;; Copyright (C) 1995, 1996, 1997 Free Software Foundation, Inc. ;; Author: Torbj\"orn Einarsson <T.Einarsson@clab.ericsson.se> -;; Last Change: Oct. 14, 1996 +;; Last Change: May 29 1997 ;; Keywords: fortran, f90, languages ;; This file is part of GNU Emacs. @@ -999,9 +999,9 @@ (list struct label))))))) (defsubst f90-looking-at-where-or-forall () - "Return (kind name) if a where or forall statement starts after point. + "Return (kind name) if a where or forall block starts after point. Name is nil if the statement has no label." - (if (looking-at "\\(\\(\\sw+\\)[ \t]*\:\\)?[ \t]*\\(where\\|forall\\)[ \t]*(") + (if (looking-at "\\(\\(\\sw+\\)[ \t]*\:\\)?[ \t]*\\(where\\|forall\\)[ \t]*(.*)[ \t]*\\(!\\|$\\)") (let (label (struct (f90-match-piece 3))) (if (looking-at "\\(\\sw+\\)[ \t]*\:")