[elpa] externals/tNFA 5463a53 07/23: Bug-fix to \{...\} postfix operator processing in tNFA--from-regexp

[Stefan Monnier]

branch: externals/tNFA
commit 5463a535a78088ea7cd58e18240becc7c9346485
Author: Toby Cubitt <toby-predictive@dr-qubit.org>
Commit: tsc25 <toby-predictive@dr-qubit.org>

    Bug-fix to \{...\} postfix operator processing in tNFA--from-regexp
---
 tNFA.el | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/tNFA.el b/tNFA.el
index 87847b5..d8bae16 100644
--- a/tNFA.el
+++ b/tNFA.el
@@ -478,7 +478,7 @@ individual elements of STRING are identical. The default is 
`eq'."
          (error "Syntax error in regexp: \"(?\" matched with \")\""))
 
         ;; syntax error: postfix operator not after atom
-        ((or (eq type 'postfix*) (eq type 'postfix+) (eq type 'postfix?))
+        ((eq type 'postfix)
          (error "Syntax error in regexp: unexpected \"%s\""
                 (char-to-string token)))
 
@@ -658,7 +658,9 @@ individual elements of STRING are identical. The default is 
`eq'."
                ;; prepare for next iteration
                (decf (car token))
                (when (cdr token) (decf (cdr token)))
-               (setq fragment copy))
+               (if (eq (cdr token) 0)
+                   (setq fragment nil)
+                 (setq fragment copy)))
               )))