userdiff: match Pascal class methods
Class declarations were already covered by the second pattern, but class methods have the 'class' keyword in front too. Account for it. Signed-off-by: Alexey Shumkin <zapped@mail.ru> Acked-by: Thomas Rast <trast@student.ethz.ch> Signed-off-by: Junio C Hamano <gitster@pobox.com>
Alexey Shumkin committed
Jan 11, 2011 at 11:53 UTC
ad5b6942d5b9127cc940d2135ce82c633013418a
1 file changed
+1
-1
userdiff.c
+1
-1
@@ -52,7 +52,7 @@ PATTERNS("objc",
52
"|[-+*/<>%&^|=!]=|--|\\+\\+|<<=?|>>=?|&&|\\|\\||::|->"
53
"|[^[:space:]]|[\x80-\xff]+"),
54
PATTERNS("pascal",
55
- "^((procedure|function|constructor|destructor|interface|"
55
+ "^(((class[ \t]+)?(procedure|function)|constructor|destructor|interface|"
56
"implementation|initialization|finalization)[ \t]*.*)$"
57
"\n"
58
"^(.*=[ \t]*(class|record).*)$",