From 0b0832bc305eb1f36dfdd515d19e456d6f4e66ee Mon Sep 17 00:00:00 2001
From: Frank Terbeck <ft@bewatermyfriend.org>
Date: Sun, 19 Jun 2011 14:23:28 +0200
Subject: [PATCH] Fix abbrev handling in generation script

---
 genrefcard.pl | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/genrefcard.pl b/genrefcard.pl
index d50e91b..8e028ff 100755
--- a/genrefcard.pl
+++ b/genrefcard.pl
@@ -263,8 +263,9 @@ sub __abbrev { #{{{
     my ($sec, $desc) = @_;
     my ($abbrev, $value, $doc);
 
+    xprint(1, "$ln, $i\n");
     while ($ln <= $i) { # the global $i
-        if ($input[$ln] =~ m!^\s*\#A[0-9]*\#!) {
+        if ($input[$ln] =~ m!^\s*#A[0-9]*#!) {
             xprint(1, "Ending abbreviation handling in line $ln.\n");
             $ln++;
             return 1;
@@ -275,12 +276,12 @@ sub __abbrev { #{{{
             $doc = $1;
         }
 
-        if ($input[$ln] =~ m!\s*['"]([^"']*)['"]\s\$?['"]([^"']*)['"]!) {
+        if ($input[$ln] =~ m!^\s*['"]([^"']*)['"]\s+\$?['"]([^"']*)['"]!) {
             $abbrev = $1; $value = &escape_string($2);
             xprint(2, "ab: $abbrev -> $value ($doc);\n");
             push(@{ $data{"abbrev-$secmap[$sec]"} }, "\\command\{$abbrev\}\{\\kbd\{$value" . ($doc ne '' ? "\}\\quad $doc" : "\}") . "\}");
         } else {
-            return 0;
+            xprint(0, "Line didn't look like abbreviation in abbreviations section: " . $input[$ln] . "\n");
         }
         $ln++;
     }
-- 
2.1.4