ignore control-l in whitespace

This commit is contained in:
Guido van Rossum 1995-07-07 22:27:27 +00:00
parent a996b910f2
commit 94d32b18e0
1 changed files with 3 additions and 1 deletions

View File

@ -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;