Changeset f987504

Timestamp:

Jul 27, 2009, 11:23:57 PM (15 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:

8f16dcd

Parents:

7be5d8b

git-author:

Nelson Elhage <nelhage@mit.edu> (07/27/09 23:22:21)

git-committer:

Nelson Elhage <nelhage@mit.edu> (07/27/09 23:23:57)

Message:

Fix completion handling if the null string generates a completion.

File:

• perl/lib/BarnOwl/Completion.pm (modified) (2 diffs)

perl/lib/BarnOwl/Completion.pm

@@ -46 +46 @@
 sub insert_completion {
     my $ctx = shift;
-    my $completion = shift;
+    my $completion = BarnOwl::quote(shift);
     my $unique = shift;
+
+    if($unique) {
+        $completion .= " ";
+    }
 
     save_excursion {
@@ -53 +57 @@
         BarnOwl::Editwin::set_mark();
         point_move($ctx->word_end - $ctx->word_start);
-        replace_region(BarnOwl::quote($completion));
+        replace_region($completion);
     };
-    if($unique && $ctx->word == (scalar @{$ctx->words} - 1)) {
-        save_excursion {
-            BarnOwl::Editwin::set_mark();
-            replace_region(' ');
-        };
-        point_move(1);
+    if(!length($ctx->words->[$ctx->word])) {
+        point_move(length($completion));
     }
 }