Changeset bf21c4e for perl/lib

Timestamp:

Aug 5, 2017, 5:54:22 PM (7 years ago)

Author:

Jason Gross <jasongross9@gmail.com>

Branches:

master

Children:

a95b564

Parents:

41677d2

git-author:

David Benjamin <davidben@mit.edu> (02/25/13 17:05:47)

git-committer:

Jason Gross <jasongross9@gmail.com> (08/05/17 17:54:22)

Message:

Correct tab-completion for set/unset

They only allow -q at the front.

File:

• perl/lib/BarnOwl/Complete/Client.pm (modified) (1 diff)

perl/lib/BarnOwl/Complete/Client.pm

@@ -146 +146 @@
 sub complete_set {
     my $ctx = shift;
-    return complete_flags($ctx,
-        [qw(-q)],
-        {
-        },
-         \&complete_set_args
-        );
+    if ($ctx->word == 1) {
+        return ("-q", complete_variable());
+    }
+    if ($ctx->word == 2 && $ctx->words->[1] eq "-q") {
+        return complete_variable();
+    }
+    return;
 }
 sub complete_set_args {