branch: externals/parser-generator
commit 24f3fb95150a87c1e2c9b56eebcb31a915438bc9
Author: Christian Johansson <christ...@cvj.se>
Commit: Christian Johansson <christ...@cvj.se>
Lex-analyzer peek look-ahead does not affect global state
---
parser-generator-lex-analyzer.el | 10 +++-------
parser-generator-lr-export.el | 8 +-------
2 files changed, 4 insertions(+), 14 deletions(-)
diff --git a/parser-generator-lex-analyzer.el b/parser-generator-lex-analyzer.el
index c358944..5610d6c 100644
--- a/parser-generator-lex-analyzer.el
+++ b/parser-generator-lex-analyzer.el
@@ -88,13 +88,9 @@
parser-generator-lex-analyzer--function
index)))
(if parser-generator-lex-analyzer--move-to-index-flag
- (progn
- (setq-local
- parser-generator-lex-analyzer--index
- parser-generator-lex-analyzer--move-to-index-flag)
- (setq
- index
- parser-generator-lex-analyzer--index))
+ (setq
+ index
+ parser-generator-lex-analyzer--move-to-index-flag)
(if next-look-ahead
(progn
(unless (listp (car next-look-ahead))
diff --git a/parser-generator-lr-export.el b/parser-generator-lr-export.el
index e72bb26..46d0d4f 100644
--- a/parser-generator-lr-export.el
+++ b/parser-generator-lr-export.el
@@ -258,13 +258,9 @@
%s-lex-analyzer--function
index)))
(if %s-lex-analyzer--move-to-index-flag
- (progn
- (setq-local
- %s-lex-analyzer--index
- %s-lex-analyzer--move-to-index-flag)
(setq
index
- %s-lex-analyzer--index))
+ %s-lex-analyzer--move-to-index-flag)
(if next-look-ahead
(progn
(unless (listp (car next-look-ahead))
@@ -286,8 +282,6 @@
namespace
namespace
namespace
- namespace
- namespace
namespace))
(insert "
(error
