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

perl-init-functions 

--HG--
branch : pmacs2
This commit is contained in:
moculus 2008-03-20 19:37:55 +00:00
parent a3a72a7d9a
commit 596ca72324
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
mode/perl.py
View File

@ -309,6 +309,7 @@ class Perl(mode.Fundamental):
self.add_action_and_bindings(PerlViewModulePerldoc(), ('C-c v',)) self.add_action_and_bindings(PerlViewModulePerldoc(), ('C-c v',))
self.add_action_and_bindings(PerlViewWordPerldoc(), ('C-c p',)) self.add_action_and_bindings(PerlViewWordPerldoc(), ('C-c p',))
self.add_action_and_bindings(PerlWrapParagraph(), ('M-q',)) self.add_action_and_bindings(PerlWrapParagraph(), ('M-q',))
self.add_action_and_bindings(PerlInitFunctions(), ('C-c M-g',))
self.add_action_and_bindings(PerlGotoFunction(), ('C-c M-g',)) self.add_action_and_bindings(PerlGotoFunction(), ('C-c M-g',))
self.add_action_and_bindings(PerlWhichFunction(), ('C-c w',)) self.add_action_and_bindings(PerlWhichFunction(), ('C-c w',))
self.add_action_and_bindings(PerlListFunctions(), ('C-c W',)) self.add_action_and_bindings(PerlListFunctions(), ('C-c W',))
@ -411,6 +412,12 @@ class PerlViewWordPerldoc(Method):
else: else:
w.application.set_error('nothing found for %r' % word) w.application.set_error('nothing found for %r' % word)
class PerlInitFunctions(Method):
'''Jump to a function defined in this module'''
def _execute(self, w, **vargs):
w.mode.build_function_map()
w.application.set_error("Initialized function map")
class PerlGotoFunction(Method): class PerlGotoFunction(Method):
'''Jump to a function defined in this module''' '''Jump to a function defined in this module'''
args = [Argument("name", type(""), "perlfunction", "Goto Function: ")] args = [Argument("name", type(""), "perlfunction", "Goto Function: ")]