From 707d9abaa7cfbbb46e952dcf24800aa02f95befc Mon Sep 17 00:00:00 2001 From: Antoine Lemoine Date: Tue, 30 Aug 2016 11:01:11 +0200 Subject: [PATCH] Fix `class is' indentation in Fortran 2003. Only `type is' was correctly indented in `select type' construction. --- lisp/progmodes/f90.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lisp/progmodes/f90.el b/lisp/progmodes/f90.el index 58397530e4fa..4e11e7f43624 100644 --- a/lisp/progmodes/f90.el +++ b/lisp/progmodes/f90.el @@ -953,7 +953,7 @@ Used in the F90 entry in `hs-special-modes-alist'.") ;; Avoid F2003 "type is" in "select type", ;; and also variables of derived type "type (foo)". ;; "type, foo" must be a block (?). - "type[ \t,]\\(" + "\\(type\\|class\\)[ \t,]\\(" "[^i(!\n\"& \t]\\|" ; not-i( "i[^s!\n\"& \t]\\|" ; i not-s "is\\(?:\\sw\\|\\s_\\)\\)\\|" @@ -1451,7 +1451,7 @@ if all else fails." (save-excursion (not (or (looking-at "end") (looking-at "\\(do\\|if\\|else\\(if\\|where\\)?\ -\\|select[ \t]*\\(case\\|type\\)\\|case\\|where\\|forall\\|\ +\\|select[ \t]*\\(case\\|type\\)\\|class\\|case\\|where\\|forall\\|\ block\\|critical\\|enum\\|associate\\)\\_>") (looking-at "\\(program\\|\\(?:sub\\)?module\\|\ \\(?:abstract[ \t]*\\)?interface\\|block[ \t]*data\\)\\_>")