Code

userdiff: match Pascal class methods
authorAlexey Shumkin <zapped@mail.ru>
Tue, 11 Jan 2011 08:53:59 +0000 (11:53 +0300)
committerJunio C Hamano <gitster@pobox.com>
Tue, 11 Jan 2011 19:03:48 +0000 (11:03 -0800)
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>
userdiff.c

index 2d5453697aaf5287f524b72d0088ee15679e0691..234697821d3f0aa285c18903fe8c465cadf071b7 100644 (file)
@@ -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).*)$",