[elpa] externals/parser-generator 0e1fbf9cef 07/29: More debugging of edge case

[Christian Johansson]

branch: externals/parser-generator
commit 0e1fbf9cef7ee822390988d2504e375b3a42d9b7
Author: Christian Johansson <christ...@cvj.se>
Commit: Christian Johansson <christ...@cvj.se>

    More debugging of edge case
---
 parser-generator.el | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/parser-generator.el b/parser-generator.el
index 75630bbfd5..6a3befc48a 100644
--- a/parser-generator.el
+++ b/parser-generator.el
@@ -45,7 +45,7 @@
 
 (defvar
   parser-generator--debug
-  nil
+  t
   "Whether to print debug messages or not.")
 
 (defvar
@@ -1842,10 +1842,13 @@
                                     ;; When the e-identifier is an alternative 
trail
                                     ;; and there a symbols left on stack
                                     ;; make alternative trail by skipping this 
symbol
+                                    ;; but only if there are more symbols in 
the input tape
                                     (when (and
                                            e-trail-is-viable-p
                                            (not found-e-trail)
-                                           (not disallow-e-first)
+                                           (or
+                                            (not disallow-e-first)
+                                            (> original-first-length 0))
                                            (parser-generator--valid-e-p
                                             (car alternative-first)))
                                       (push