Changeset 7be5d8b for perl

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:

f987504

Parents:

82a6e8b

git-author:

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

git-committer:

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

Message:

Completion::Context: Fix behavior if point is at end after whitespace.

We should add an empty word on the end, and need to get the word limits
correct.

File:

• perl/lib/BarnOwl/Completion/Context.pm (modified) (1 diff)

perl/lib/BarnOwl/Completion/Context.pm

@@ -136 +136 @@
     unless(defined($word_point)) {
         $word_point = 0;
-        $cword_start = $cword_end = 0;
+        $cword_start = $cword_end = $point;
+        push @words, '' if $point > 0;
     }