From 6ebcef6469e7f71e829942051097931ce9d746b8 Mon Sep 17 00:00:00 2001
From: Mischa POSLAWSKY <perl@shiar.org>
Date: Sat, 8 Apr 2017 23:32:50 +0200
Subject: [PATCH] charset: fix cp437 offset on extend

---
 charset.plp | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/charset.plp b/charset.plp
index 33e5db4..74ea8e7 100644
--- a/charset.plp
+++ b/charset.plp
@@ -226,7 +226,8 @@ sub tabinput {
 			$row{cols} = $1;
 		}
 		elsif ($param =~ m{ \A (?<offset> \d+) (?: [-] (?<endpoint> \d+) )? \z }x) {
-			if ($row{offset}) {
+			if (defined $row{endpoint}) {
+				# extend earlier range
 				my $skip = int(($row{endpoint} || $row{offset}) / $row{cols});
 				for ($skip + 1 .. ($+{offset} / $row{cols}) - 1) {
 					$row{skip}->{ $_ * $row{cols} - $row{offset} }++;
@@ -235,7 +236,7 @@ sub tabinput {
 			else {
 				$row{offset} = $+{offset};
 			}
-			$row{endpoint} = $+{endpoint};
+			$row{endpoint} = $+{endpoint} || 0;
 		}
 		else {
 			Alert("Unknown option <q>$param</q> for charset $input");
-- 
2.30.0