From 94d32b18e0ef1d7bfa8b7bef084f4cc2cecc5d44 Mon Sep 17 00:00:00 2001
From: Guido van Rossum <guido@python.org>
Date: Fri, 7 Jul 1995 22:27:27 +0000
Subject: [PATCH] ignore control-l in whitespace

---
 Parser/tokenizer.c | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/Parser/tokenizer.c b/Parser/tokenizer.c
index 4d759d1cd97..896b0ce5362 100644
--- a/Parser/tokenizer.c
+++ b/Parser/tokenizer.c
@@ -424,6 +424,8 @@ tok_get(tok, p_start, p_end)
 				col++;
 			else if (c == '\t')
 				col = (col/tok->tabsize + 1) * tok->tabsize;
+			else if (c == '\014') /* Control-L (formfeed) */
+				col = 0; /* For Emacs users */
 			else
 				break;
 		}
@@ -492,7 +494,7 @@ tok_get(tok, p_start, p_end)
 	/* Skip spaces */
 	do {
 		c = tok_nextc(tok);
-	} while (c == ' ' || c == '\t');
+	} while (c == ' ' || c == '\t' || c == '\014');
 	
 	/* Set start of current token */
 	tok->start = tok->cur - 1;