perl mode tag matching

--HG--
branch : pmacs2

lex2_perl.py

@@ -335,7 +335,8 @@ class PerlGrammar(Grammar):
         # some basic stuff
         PatternRule(
             name=r'delimiter',
-            pattern=r",|;|->|=>|=|\?|(?<!:):(?!=:)",
+            #pattern=r",|;|->|=>|=|\?|(?<!:):(?!=:)",
+            pattern=r",|;|->|=>|=|\?|\(|\)|{|}|\[|\](?<!:):(?!=:)",
         ),
         PatternRule(
             name=r'operator',

mode2.py

@@ -136,15 +136,15 @@ class Fundamental(Handler):
         self.add_bindings('cmd-help-buffer', ('M-h',))
         self.add_bindings('set-mode', ('C-x m',))
         self.add_bindings('cancel', ('C-]',))
-        #self.add_bindings('close-paren', (')',))
-        #self.add_bindings('close-brace', ('}',))
-        #self.add_bindings('close-bracket', (']',))
+        self.add_bindings('close-paren', (')',))
+        self.add_bindings('close-brace', ('}',))
+        self.add_bindings('close-bracket', (']',))
 
         # create all the insert actions for the character ranges we like
         for c in string.letters + string.digits + string.punctuation:
-            ## closing tags are handled differently
-            #if c == ')' or c == ']' or c == '}':
-            #    continue
+            # closing tags are handled differently
+            if c == ')' or c == ']' or c == '}':
+                continue
             self.add_binding('insert-string-%s' % c, c)
         
         # initialize some stuff

mode_perl.py

@@ -6,7 +6,7 @@ class Perl(mode2.Fundamental):
     def __init__(self, w):
         mode2.Fundamental.__init__(self, w)
 
-        #self.tag_matching = True
+        self.tag_matching = True
         self.grammar      = lex2_perl.PerlGrammar()
         self.lexer        = lex2.Lexer(self.name(), self.grammar)
 
@@ -20,10 +20,6 @@ class Perl(mode2.Fundamental):
         self.add_action_and_bindings(PerlWhichFunction(), ('C-c w',))
         self.add_action_and_bindings(PerlListFunctions(), ('C-c W',))
 
-        #self.add_bindings('close-paren', (')',))
-        #self.add_bindings('close-brace', ('}',))
-        #self.add_bindings('close-bracket', (']',))
-
         self.default_color = color.build('default', 'default')
 
         self.colors = {
@@ -390,7 +386,7 @@ class PerlHashCleanup(method.Method):
         start_p = Point(0, start)
         end_p = Point(0, end + 1)
         window.kill(start_p, end_p)
-        window.insert(start_p, data)
+        window.insert_string(start_p, data)
 
 class PerlHashCleanup2(method.Method):
     '''Correctly align assignment blocks and literal hashes'''