From 1211d9a33be5818565ce48eaffdd45e12068d198 Mon Sep 17 00:00:00 2001
From: jgoff <jgoff@a6b267a2-8f62-4c46-b07c-677a4f9229da>
Date: Wed, 14 Jan 2009 07:51:59 +0000
Subject: [PATCH] Rename the _command bit out of existence - just trying to
 keep the two panes' function names similar.

git-svn-id: file:///Volumes/EnMasse/svnroot/SExpr-Edit/trunk@118 a6b267a2-8f62-4c46-b07c-677a4f9229da
---
 bin/ed_test             |  4 ++--
 lib/Pane/CommandLine.pm | 12 ++++++------
 2 files changed, 8 insertions(+), 8 deletions(-)

diff --git a/bin/ed_test b/bin/ed_test
index 033926c..24c80f8 100644
--- a/bin/ed_test
+++ b/bin/ed_test
@@ -670,7 +670,7 @@ insert_into_trie
   sub    => sub
     {
     my ( $args ) = @_;
-    $args->{heap}->{command_line}->delete_command_character;
+    $args->{heap}->{command_line}->delete_character;
     }
   });
 
@@ -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
       });
diff --git a/lib/Pane/CommandLine.pm b/lib/Pane/CommandLine.pm
index 665e1af..0396af0 100644
--- a/lib/Pane/CommandLine.pm
+++ b/lib/Pane/CommandLine.pm
@@ -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 ) = @_;
 
@@ -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 ) = @_;