From 33ef9ad6bc0f2c87ba2ed6b5947fce53fffbf75f Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Michael=20Teichgr=C3=A4ber?= <mt@ib.wmipf.de>
Date: Mon, 21 Feb 2011 02:55:06 +0100
Subject: [PATCH] Atx headers:  Don't require space after ###.
 [jgm/peg-markdown]

See https://github.com/jgm/peg-markdown/commit/6515556
---
 parser.leg | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/parser.leg b/parser.leg
index e6374a2..402901f 100644
--- a/parser.leg
+++ b/parser.leg
@@ -136,7 +136,7 @@ AtxInline = !Newline !(Sp? '#'* Sp Newline) Inline
 AtxStart =  &'#' < ( "######" | "#####" | "####" | "###" | "##" | "#" ) >
             { $$ = mk_element(H1 + (len(yytext) - 1)) }
 
-AtxHeading = s:AtxStart Sp a:StartList ( AtxInline { a = cons($$, a) } )+ (Sp? '#'* Sp)?  Newline
+AtxHeading = s:AtxStart Sp? a:StartList ( AtxInline { a = cons($$, a) } )+ (Sp? '#'* Sp)?  Newline
             { $$ = mk_list(s.key, a)
               s = nil }