[elpa] externals/parser-generator af9ad94 418/434: Move lexer flag now affecting global state

[ELPA Syncer]

branch: externals/parser-generator
commit af9ad947a23d473e9babe403058e7e28383d6b6c
Author: Christian Johansson <christian@cvj.se>
Commit: Christian Johansson <christian@cvj.se>

    Move lexer flag now affecting global state
---
 parser-generator-lex-analyzer.el |  5 ++++-
 parser-generator-lr-export.el    | 11 ++++++++---
 2 files changed, 12 insertions(+), 4 deletions(-)

diff --git a/parser-generator-lex-analyzer.el b/parser-generator-lex-analyzer.el
index 9a9c981..c358944 100644
--- a/parser-generator-lex-analyzer.el
+++ b/parser-generator-lex-analyzer.el
@@ -89,9 +89,12 @@
                     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--move-to-index-flag))
+                     parser-generator-lex-analyzer--index))
                 (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 d8a6437..e72bb26 100644
--- a/parser-generator-lr-export.el
+++ b/parser-generator-lr-export.el
@@ -259,9 +259,12 @@
                     index)))
                   (if %s-lex-analyzer--move-to-index-flag
                     (progn
-                      (setq
-                       index
-                       %s-lex-analyzer--move-to-index-flag))
+                     (setq-local
+                      %s-lex-analyzer--index
+                      %s-lex-analyzer--move-to-index-flag)
+                    (setq
+                     index
+                     %s-lex-analyzer--index))
               (if next-look-ahead
                   (progn
                     (unless (listp (car next-look-ahead))
@@ -283,6 +286,8 @@
                namespace
                namespace
                namespace
+               namespace
+               namespace
                namespace))
       (insert "
         (error