Changeset ac1bbe2 for perl/modules


Ignore:
Timestamp:
Jan 26, 2007, 5:03:10 PM (17 years ago)
Author:
Nelson Elhage <nelhage@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:
a8a3433
Parents:
0da506c
git-author:
Nelson Elhage <nelhage@mit.edu> (01/26/07 17:03:04)
git-committer:
Nelson Elhage <nelhage@mit.edu> (01/26/07 17:03:10)
Message:
Binding j to jwrite
File:
1 edited

Legend:

Unmodified
Added
Removed
  • perl/modules/jabber.pl

    r0da506c rac1bbe2  
    217217    if ( *BarnOwl::queue_message{CODE} ) {
    218218        register_owl_commands();
     219        register_keys unless $BarnOwl::reload;
    219220        push @::onMainLoop,     sub { BarnOwl::Jabber::onMainLoop(@_) };
    220221        push @::onGetBuddyList, sub { BarnOwl::Jabber::onGetBuddyList(@_) };
     
    419420}
    420421
     422sub register_keybindings {
     423    BarnOwl::bindkey("recv j command jwrite");
     424}
     425
    421426sub cmd_login {
    422427    my $cmd = shift;
Note: See TracChangeset for help on using the changeset viewer.