Changeset 5588

Timestamp:

06/26/09 00:48:27 (3 years ago)

Author:

claudio

Message:

Make perlplugin cursor keeper less resource hungry

File:

• trunk/Padre-Plugin-PerlTidy/lib/Padre/Plugin/PerlTidy.pm (modified) (3 diffs)

trunk/Padre-Plugin-PerlTidy/lib/Padre/Plugin/PerlTidy.pm

@@ -231 +231 @@
     # parameter: $main, compiled regex
     my ( $main, $regex, $start ) = @_;
-    my $shuffle = 80;
+    my $shuffle = 40;
     my $doc     = $main->current->document;
     my $editor  = $doc->editor;
@@ -261 +261 @@
 
     # A smaller selection to save memory 
-    my $sel_width = 80;    # chars before
+    my $sel_width = 40;    # chars before
     my $start;
 
@@ -282 +282 @@
         print @_;
     }
+    $editor->goto_line_centerize($pos);
     return ( $regex, $start );
 }