Changeset ac1bbe2 for perl/modules

Timestamp:

Jan 26, 2007, 5:03:10 PM (18 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:

• perl/modules/jabber.pl (modified) (2 diffs)

perl/modules/jabber.pl

@@ -217 +217 @@
     if ( *BarnOwl::queue_message{CODE} ) {
         register_owl_commands();
+        register_keys unless $BarnOwl::reload;
         push @::onMainLoop,     sub { BarnOwl::Jabber::onMainLoop(@_) };
         push @::onGetBuddyList, sub { BarnOwl::Jabber::onGetBuddyList(@_) };
@@ -419 +420 @@
 }
 
+sub register_keybindings {
+    BarnOwl::bindkey("recv j command jwrite");
+}
+
 sub cmd_login {
     my $cmd = shift;