tabbing bug

--HG--
branch : pmacs2
This commit is contained in:
moculus 2007-06-26 20:27:22 +00:00
parent 5c2e5af0f2
commit c4ceafd22d
1 changed files with 5 additions and 4 deletions

View File

@ -114,10 +114,11 @@ class PerlTabber(tab2.StackTabber):
self._opt_pop('cont')
currlvl = tab2.StackTabber._handle_close_token(self, currlvl, y, i)
token = self.get_token(y, i)
if token.string == '}':
self._opt_pop('cont')
elif self.is_rightmost_token(y, i):
self._opt_append('cont', currlvl + 4)
if self.is_rightmost_token(y, i):
if token.string == '}':
self._opt_pop('cont')
else:
self._opt_append('cont', currlvl + 4)
return currlvl
def _handle_other_token(self, currlvl, y, i):
token = self.get_token(y, i)