mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-05 11:45:45 +00:00
Code Issues Releases Activity

(f90-looking-at-where-or-forall): Recognize where/forall

Browse Source 
only if it's a block, not a one-line statement.
This commit is contained in:
Karl Heuer 1997-06-10 18:04:01 +00:00
parent 50e4b39ede
commit 24c868149e
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/progmodes/f90.el
View File

@ -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 @@ Name is nil if the statement has no label."
(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]*\:")