Merge branch 'as/userdiff-pascal'

* as/userdiff-pascal: userdiff: match Pascal class methods
2011-01-24 10:54:12 -08:00 · 2011-01-24 10:54:12 -08:00 · 342953a686
parent 0efbb7d9f4 ad5b6942d5
commit 342953a686
1 changed files with 1 additions and 1 deletions
--- a/userdiff.c
+++ b/userdiff.c
@ -52,7 +52,7 @@ PATTERNS("objc",
 	 "|[-+*/<>%&^|=!]=|--|\\+\\+|<<=?|>>=?|&&|\\|\\||::|->"
 	 "|[^[:space:]]|[\x80-\xff]+"),
 PATTERNS("pascal",
-	 "^((procedure|function|constructor|destructor|interface|"
+	 "^(((class[ \t]+)?(procedure|function)|constructor|destructor|interface|"
 		"implementation|initialization|finalization)[ \t]*.*)$"
 	 "\n"
 	 "^(.*=[ \t]*(class|record).*)$",