[elpa] externals/phps-mode 1789d15 60/96: Fixed bug in gramamr automation

[Christian Johansson]

branch: externals/phps-mode
commit 1789d154b4b45f7e736c4b64588656779cd689af
Author: Christian Johansson <christian@cvj.se>
Commit: Christian Johansson <christian@cvj.se>

    Fixed bug in gramamr automation
---
 admin/phps-mode-automation.el | 44 ++++++++++++++++++++++++++-----------------
 1 file changed, 27 insertions(+), 17 deletions(-)

diff --git a/admin/phps-mode-automation.el b/admin/phps-mode-automation.el
index e1eecef..03855c9 100644
--- a/admin/phps-mode-automation.el
+++ b/admin/phps-mode-automation.el
@@ -41,7 +41,26 @@
          gc-cons-threshold
          (* 1024 1024 100))
 
-        (let ((global-declaration 
(phps-mode-automation-parser-generator--global-declaration)))
+        (let* ((global-declaration 
(phps-mode-automation-parser-generator--global-declaration))
+               (attributes phps-mode-automation-parser-generator--attributes)
+               (grammar (phps-mode-automation-parser-generator--grammar))
+               (context-sensitive-attributes 
phps-mode-automation-parser-generator--context-sensitive-attributes))
+
+          ;; Prepare export
+          (when (fboundp 'parser-generator-set-grammar)
+            (parser-generator-set-grammar
+             grammar))
+
+          (when (boundp 'parser-generator--context-sensitive-attributes)
+            (setq
+             parser-generator--context-sensitive-attributes
+             context-sensitive-attributes))
+
+          (when (boundp 
'parser-generator-lr--context-sensitive-precedence-attribute)
+            (setq
+             parser-generator-lr--context-sensitive-precedence-attribute
+             (car context-sensitive-attributes)))
+
           (when (boundp 'parser-generator--global-declaration)
             (setq
              parser-generator--global-declaration
@@ -50,27 +69,18 @@
           (when (boundp 'parser-generator--global-attributes)
             (setq
              parser-generator--global-attributes
-             phps-mode-automation-parser-generator--attributes))
+             attributes))
 
           (when (boundp 'parser-generator-lr--global-precedence-attributes)
             (setq
              parser-generator-lr--global-precedence-attributes
-             phps-mode-automation-parser-generator--attributes)))
-
-        ;; Prepare export
-        (when (fboundp 'parser-generator-set-grammar)
-          (parser-generator-set-grammar
-           (phps-mode-automation-parser-generator--grammar))
+             attributes)))
 
-          (when (boundp 'parser-generator--context-sensitive-attributes)
-            (setq
-             parser-generator--context-sensitive-attributes
-             
phps-mode-automation-parser-generator--context-sensitive-attributes))
-
-          (when (boundp 
'parser-generator-lr--context-sensitive-precedence-attribute)
-            (setq
-             parser-generator-lr--context-sensitive-precedence-attribute
-             (car 
phps-mode-automation-parser-generator--context-sensitive-attributes))))
+        (message "parser-generator--global-attributes: %S" 
parser-generator--global-declaration)
+        (message "parser-generator--global-declaration: %S" 
parser-generator--global-declaration)
+        (message "parser-generator-lr--global-precedence-attributes: %S" 
parser-generator-lr--global-precedence-attributes)
+        (message "parser-generator-lr--context-sensitive-precedence-attribute: 
%S" parser-generator-lr--context-sensitive-precedence-attribute)
+        (message "parser-generator--context-sensitive-attributes: %S" 
parser-generator--context-sensitive-attributes)
 
         (when (fboundp 'parser-generator-set-look-ahead-number)
           (parser-generator-set-look-ahead-number