[Bps-public-commit] r9204 - Text-Quoted

[ruz at bestpractical.com]

Author: ruz
Date: Wed Oct  3 07:03:13 2007
New Revision: 9204

Modified:
   Text-Quoted/   (props changed)
   Text-Quoted/Quoted.pm

Log:
 r18260 at cubic-pc:  cubic | 2007-10-03 14:12:56 +0400
 * $lastquoted, $lastprespace and $para->{prespace} are not used anywhere
   so we can delete whole block it's a legacy block from damian's module
 


Modified: Text-Quoted/Quoted.pm
==============================================================================
--- Text-Quoted/Quoted.pm	(original)
+++ Text-Quoted/Quoted.pm	Wed Oct  3 07:03:13 2007
@@ -232,25 +232,6 @@
         }
     }
 
-    my $remainder = "";
-
-    # ALIGN QUOTERS
-    # DETERMINE HANGING MARKER TYPE (BULLET, ALPHA, ROMAN, ETC.)
-
-    my %sigs;
-    my $lastquoted   = 0;
-    my $lastprespace = 0;
-    for my $i ( 0 .. $#paras ) {
-        my $para = $paras[$i];
-        if ( $para->{quoter} ) {
-            if ($lastquoted) { $para->{prespace} = $lastprespace }
-            else { $lastquoted = 1; $lastprespace = $para->{prespace} }
-        }
-        else {
-            $lastquoted = 0;
-        }
-    }
-
     # Reapply hangs
     for (@paras) {
         next unless my $hang = $_->{hang};