diff options
| author | Glenn Morris | 2011-06-25 18:37:36 -0700 |
|---|---|---|
| committer | Glenn Morris | 2011-06-25 18:37:36 -0700 |
| commit | ee584d02ddc4d944a9055681eda52dc1d197bba0 (patch) | |
| tree | c85aa0da48ab323d781b9c75fe3a41a8cdd3a994 | |
| parent | 9f678528d81f0fcb1cab11753d2ad16b313583c9 (diff) | |
| download | emacs-ee584d02ddc4d944a9055681eda52dc1d197bba0.tar.gz emacs-ee584d02ddc4d944a9055681eda52dc1d197bba0.zip | |
* lisp/progmodes/f90.el (f90-looking-at-critical): Doc fix.
| -rw-r--r-- | lisp/progmodes/f90.el | 2 |
1 files changed, 1 insertions, 1 deletions
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." | |||
| 1262 | (list (match-string 1)))) | 1262 | (list (match-string 1)))) |
| 1263 | 1263 | ||
| 1264 | (defsubst f90-looking-at-critical () | 1264 | (defsubst f90-looking-at-critical () |
| 1265 | "Return (KIND) if a critical or block block starts after point." | 1265 | "Return (KIND NAME) if a critical or block block starts after point." |
| 1266 | (if (looking-at "\\(\\(\\sw+\\)[ \t]*:\\)?[ \t]*\\(critical\\|block\\)\\>") | 1266 | (if (looking-at "\\(\\(\\sw+\\)[ \t]*:\\)?[ \t]*\\(critical\\|block\\)\\>") |
| 1267 | (let ((struct (match-string 3)) | 1267 | (let ((struct (match-string 3)) |
| 1268 | (label (match-string 2))) | 1268 | (label (match-string 2))) |