From: Guido van Rossum <guido@python.org>
Date: Fri, 7 Jul 1995 22:27:27 +0000 (+0000)
Subject: ignore control-l in whitespace
X-Git-Tag: v1.3b1~220
X-Git-Url: http://git.ipfire.org/gitweb.cgi?a=commitdiff_plain;h=94d32b18e0ef1d7bfa8b7bef084f4cc2cecc5d44;p=thirdparty%2FPython%2Fcpython.git

ignore control-l in whitespace
---

diff --git a/Parser/tokenizer.c b/Parser/tokenizer.c
index 4d759d1cd978..896b0ce5362e 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;