Skip to content

Commit

Permalink
Browse files Browse the repository at this point in the history
Rename the _command bit out of existence - just trying to keep the tw…
…o panes'

function names similar.



git-svn-id: file:///Volumes/EnMasse/svnroot/SExpr-Edit/trunk@118 a6b267a2-8f62-4c46-b07c-677a4f9229da
  • Loading branch information
jgoff committed Jan 14, 2009
1 parent 8f8432c commit 1211d9a
Show file tree
Hide file tree
Showing 2 changed files with 8 additions and 8 deletions.
4 changes: 2 additions & 2 deletions bin/ed_test
Expand Up @@ -670,7 +670,7 @@ insert_into_trie
sub => sub
{
my ( $args ) = @_;
$args->{heap}->{command_line}->delete_command_character;
$args->{heap}->{command_line}->delete_character;
}
});

Expand Down Expand Up @@ -751,7 +751,7 @@ insert_into_trie
{
my ( $args, $keystroke ) = @_;

$args->{heap}->{command_line}->insert_command_character
$args->{heap}->{command_line}->insert_character
({
keystroke => $keystroke
});
Expand Down
12 changes: 6 additions & 6 deletions lib/Pane/CommandLine.pm
Expand Up @@ -157,15 +157,15 @@ sub cur_line

# }}}

# {{{ insert_command_character({ keystroke => $ch })
# {{{ insert_character({ keystroke => $ch })

=head2 insert_command_character({ keystroke => $ch })
=head2 insert_character({ keystroke => $ch })
Insert the specified keystroke at the current cursor position
=cut

sub insert_command_character
sub insert_character
{
my ( $self, $args ) = @_;

Expand All @@ -191,15 +191,15 @@ sub insert_line

# }}}

# {{{ delete_command_character
# {{{ delete_character

=head2 delete_command_character
=head2 delete_character
Delete the character at the cursor position
=cut

sub delete_command_character
sub delete_character
{
my ( $self ) = @_;

Expand Down

0 comments on commit 1211d9a

Please sign in to comment.