Changeset 19cc7b00 for perl/lib


Ignore:
Timestamp:
Jul 28, 2009, 11:39:29 PM (12 years ago)
Author:
Nelson Elhage <nelhage@mit.edu>
Branches:
master, release-1.4, release-1.5, release-1.6, release-1.7, release-1.8, release-1.9
Children:
2b37be2
Parents:
c4efb46 (diff), d4ecc78 (diff)
Note: this is a merge changeset, the changes displayed below correspond to the merge itself.
Use the (diff) links above to see all the changes relative to each parent.
Message:
Merge davidben's changes.

Merge commit 'davidben/master'
Location:
perl/lib/BarnOwl
Files:
1 added
2 edited

Legend:

Unmodified
Added
Removed
  • perl/lib/BarnOwl/Complete/Zephyr.pm

    r8f16dcd r84db778  
    3030}
    3131
    32 sub complete_sub {
    33     my $ctx = shift;
    34     return complete_flags($ctx,
    35         [],
    36         {
    37             "-r" => \&complete_realm,
    38         });
    39 }
    40 
    4132sub on_message {
    4233    my $m = shift;
     
    5041BarnOwl::Completion::register_completer(zcrypt    => \&complete_zwrite);
    5142
    52 # TODO: Handle aliases transparently in the core completion code?
    53 BarnOwl::Completion::register_completer(sub       => \&complete_sub);
    54 BarnOwl::Completion::register_completer(subscribe => \&complete_sub);
    55 
    5643$BarnOwl::Hooks::newMessage->add("BarnOwl::Complete::Zephyr::on_message");
    5744
  • perl/lib/BarnOwl/Completion.pm

    rf987504 rc4efb46  
    1818                        point_move replace_region);
    1919
    20 use List::Util qw(max first);
     20use List::Util qw(min first);
    2121
    2222our %completers = ();
     
    7676sub common_prefix {
    7777    my @words = @_;
    78     my $len   = max(map {length($_)} @words);
     78    my $len   = min(map {length($_)} @words);
    7979    my $pfx = '';
    8080    for my $i (1..$len) {
Note: See TracChangeset for help on using the changeset viewer.