From 288837b92d17bacae078dc0122755b34ca019ac6 Mon Sep 17 00:00:00 2001
From: Karl Williamson <public@khwilliamson.com>
Date: Thu, 14 Nov 2013 19:30:42 -0700
Subject: [PATCH] mktables: White-space only

Outdent a just-removed block, and better align several other statements
---
 lib/unicore/mktables | 22 ++++++++++++----------
 1 file changed, 12 insertions(+), 10 deletions(-)

diff --git a/lib/unicore/mktables b/lib/unicore/mktables
index bad1799..3a18a57 100644
--- a/lib/unicore/mktables
+++ b/lib/unicore/mktables
@@ -5714,10 +5714,10 @@ END
 
                     if (($use_adjustments || $range_size_1) && $end != $start)
                     {
-                            $next_start = $start + 1;
-                            $next_end = $end;
-                            $next_value = $value;
-                            $end = $start;
+                        $next_start = $start + 1;
+                        $next_end = $end;
+                        $next_value = $value;
+                        $end = $start;
                     }
 
                     if ($use_adjustments && ! $range_size_1) {
@@ -5816,7 +5816,7 @@ END
 
                             # Get character information if don't have it already
                             main::populate_char_info($i)
-                                                if ! defined $viacode[$i];
+                                                     if ! defined $viacode[$i];
                             my $type = $annotate_char_type[$i];
 
                             # Figure out if should output the next code points
@@ -5925,13 +5925,13 @@ END
                                 else {
                                     $output_value += $i - $start
                                                    if $use_adjustments
-                                                       # Don't try to adjust a
-                                                       # non-integer
+                                                      # Don't try to adjust a
+                                                      # non-integer
                                                    && $output_value !~ /[-\D]/;
 
                                     if ($output_map_in_hex) {
                                         main::populate_char_info($output_value)
-                                        if ! defined $viacode[$output_value];
+                                          if ! defined $viacode[$output_value];
                                         $comment .= " => '"
                                         . main::display_chr($output_value)
                                         . "'; " if $printable[$output_value];
@@ -7865,14 +7865,16 @@ END
         if ($total_entries == 0) {
             Carp::my_carp("No regular expression construct can match $leader, as all names for it are the null string.  Creating file anyway.");
             $comment .= <<END;
-This file returns the $code_points in Unicode Version $string_version for
+This file returns the $code_points in Unicode Version
+$string_version for
 $leader, but it is inaccessible through Perl regular expressions, as
 "\\p{prop=}" is not recognized.
 END
 
         } else {
             $comment .= <<END;
-This file returns the $code_points in Unicode Version $string_version that
+This file returns the $code_points in Unicode Version
+$string_version that
 $match$synonyms:
 
 $matches_comment
-- 
2.7.4