From ee584d02ddc4d944a9055681eda52dc1d197bba0 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Sat, 25 Jun 2011 18:37:36 -0700 Subject: [PATCH] * lisp/progmodes/f90.el (f90-looking-at-critical): Doc fix. --- lisp/progmodes/f90.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lisp/progmodes/f90.el b/lisp/progmodes/f90.el index db292c2452b..cdb5f2a715d 100644 --- a/lisp/progmodes/f90.el +++ b/lisp/progmodes/f90.el @@ -1262,7 +1262,7 @@ NAME is nil if the statement has no label." (list (match-string 1)))) (defsubst f90-looking-at-critical () - "Return (KIND) if a critical or block block starts after point." + "Return (KIND NAME) if a critical or block block starts after point." (if (looking-at "\\(\\(\\sw+\\)[ \t]*:\\)?[ \t]*\\(critical\\|block\\)\\>") (let ((struct (match-string 3)) (label (match-string 2))) -- 2.39.5