Changeset 76682af


Ignore:
Timestamp:
Feb 26, 2013, 2:00:47 PM (11 years ago)
Author:
David Benjamin <davidben@mit.edu>
Children:
230e8ff
Parents:
e16f8fe
git-author:
David Benjamin <davidben@mit.edu> (02/25/13 17:05:47)
git-committer:
David Benjamin <davidben@mit.edu> (02/26/13 14:00:47)
Message:
Correct tab-completion for set/unset

They only allow -q at the front.
File:
1 edited

Legend:

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

    r4626016 r76682af  
    146146sub complete_set {
    147147    my $ctx = shift;
    148     return complete_flags($ctx,
    149         [qw(-q)],
    150         {
    151         },
    152          \&complete_set_args
    153         );
     148    if ($ctx->word == 1) {
     149        return ("-q", complete_variable());
     150    }
     151    if ($ctx->word == 2 && $ctx->words->[1] eq "-q") {
     152        return complete_variable();
     153    }
     154    return;
    154155}
    155156sub complete_set_args {
Note: See TracChangeset for help on using the changeset viewer.