Changeset 19cc7b00 for perl/lib

Timestamp:

Jul 28, 2009, 11:39:29 PM (16 years ago)

Author:

Nelson Elhage <nelhage@mit.edu>

Branches:

master, release-1.10, 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:

• Complete/Client.pm (added)
• Complete/Zephyr.pm (modified) (2 diffs)
• Completion.pm (modified) (2 diffs)

perl/lib/BarnOwl/Complete/Zephyr.pm

@@ -30 +30 @@
 }
 
-sub complete_sub {
-    my $ctx = shift;
-    return complete_flags($ctx,
-        [],
-        {
-            "-r" => \&complete_realm,
-        });
-}
-
 sub on_message {
     my $m = shift;
@@ -50 +41 @@
 BarnOwl::Completion::register_completer(zcrypt    => \&complete_zwrite);
 
-# TODO: Handle aliases transparently in the core completion code?
-BarnOwl::Completion::register_completer(sub       => \&complete_sub);
-BarnOwl::Completion::register_completer(subscribe => \&complete_sub);
-
 $BarnOwl::Hooks::newMessage->add("BarnOwl::Complete::Zephyr::on_message");
 

perl/lib/BarnOwl/Completion.pm

@@ -18 +18 @@
                         point_move replace_region);
 
-use List::Util qw(max first);
+use List::Util qw(min first);
 
 our %completers = ();
@@ -76 +76 @@
 sub common_prefix {
     my @words = @_;
-    my $len   = max(map {length($_)} @words);
+    my $len   = min(map {length($_)} @words);
     my $pfx = '';
     for my $i (1..$len) {