[elpa] externals/parser-generator 24f3fb9 419/434: Lex-analyzer peek look-ahead does not affect global state

[ELPA Syncer]

branch: externals/parser-generator
commit 24f3fb95150a87c1e2c9b56eebcb31a915438bc9
Author: Christian Johansson <christian@cvj.se>
Commit: Christian Johansson <christian@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