Changeset a8a3433 for perl


Ignore:
Timestamp:
Jan 26, 2007, 5:42:07 PM (17 years ago)
Author:
Alejandro R. Sedeño <asedeno@mit.edu>
Branches:
master, barnowl_perlaim, debian, release-1.10, release-1.4, release-1.5, release-1.6, release-1.7, release-1.8, release-1.9
Children:
30678ae
Parents:
ac1bbe2
Message:
Properly register keybindings. Testing? What? :p
File:
1 edited

Legend:

Unmodified
Added
Removed
  • perl/modules/jabber.pl

    rac1bbe2 ra8a3433  
    217217    if ( *BarnOwl::queue_message{CODE} ) {
    218218        register_owl_commands();
    219         register_keys unless $BarnOwl::reload;
     219        register_keybindings() unless $BarnOwl::reload;
    220220        push @::onMainLoop,     sub { BarnOwl::Jabber::onMainLoop(@_) };
    221221        push @::onGetBuddyList, sub { BarnOwl::Jabber::onGetBuddyList(@_) };
     
    421421
    422422sub register_keybindings {
    423     BarnOwl::bindkey("recv j command jwrite");
     423    BarnOwl::bindkey("recv j command start-command jwrite ");
    424424}
    425425
Note: See TracChangeset for help on using the changeset viewer.