d6
/
pmacs3
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

--HG-- 

branch : pmacs2
This commit is contained in:
moculus 2009-01-24 17:49:19 +00:00
parent 57deac3c63
commit aaf0f8090a
1 changed files with 9 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
mode/perl.py
View File

@ -610,11 +610,11 @@ class PerlContext(context.Context):
stack.append(t.string)
starting = False
elif t.name == 'delimiter' and t.string == '}':
if not stack:
# we are totally hosed. start over. ugh.
self.build_name_map()
return
stack.pop(-1)
if stack:
stack.pop(-1)
else:
# we are totally hosed. ugh.
pass
if curr:
self.namelines[i] = (curr, tuple(stack))
i += 1
@ -734,7 +734,6 @@ class Perl(mode.Fundamental):
'perlfunction': PerlFunctionCompleter(None),
}
format = "%(flag)s %(bname)-18s (%(mname)s) %(indent)s %(cursor)s/%(mark)s %(perc)s [%(func)s]"
#format = "%(flag)s %(bname)-18s (%(mname)s) %(cursor)s/%(mark)s %(perc)s"
def get_status_names(self):
names = mode.Fundamental.get_status_names(self)
c = self.window.logical_cursor()
@ -755,7 +754,7 @@ class Perl(mode.Fundamental):
self.add_bindings('close-paren', (')'))
self.add_bindings('close-bracket', (']'))
self.add_bindings('close-brace', ('}'))
#self.context = PerlContext(self)
self.context = PerlContext(self)
self.functions = None
self.funclines = None
self.perlinc = None
@ -789,13 +788,10 @@ class Perl(mode.Fundamental):
return self.perlinc
def get_functions(self):
#return self.context.get_names()
return {}
return self.context.get_names()
def get_function_names(self):
#return self.context.get_name_list()
return {}
return self.context.get_name_list()
def get_line_function(self, y):
#return self.context.get_line_name(y)
return {}
return self.context.get_line_name(y)
install = Perl.install