[nongnu] elpa/sweeprolog 270fad253f 5/6: ; (sweeprolog--decode-numbered-variable-name): Fix regexp.

[ELPA Syncer]

branch: elpa/sweeprolog
commit 270fad253f02b18a4265152ebf3dee9bf720dbe5
Author: Eshel Yaron <me@eshelyaron.com>
Commit: Eshel Yaron <me@eshelyaron.com>

    ; (sweeprolog--decode-numbered-variable-name): Fix regexp.
---
 sweeprolog.el | 10 +++++++---
 1 file changed, 7 insertions(+), 3 deletions(-)

diff --git a/sweeprolog.el b/sweeprolog.el
index b3d6d49d8a..79e3cc3ee4 100644
--- a/sweeprolog.el
+++ b/sweeprolog.el
@@ -6810,11 +6810,15 @@ is the name of the variable at point, if any."
         (string-match (rx bos (or "_" upper) (* (or "_" alnum)) eos) 
string))))))
 
 (defun sweeprolog--decode-numbered-variable-name (string)
-  "Return t if STRING is valid number variable name."
+  "Decode numbered variable name STRING.
+
+Return cons cell (VAR . NUM), where VAR is the variable name sans
+numbered variable index, and NUM is the index."
   (save-match-data
     (let ((case-fold-search nil))
-      (when (string-match (rx bos (group-n 1 (or "_" upper) (or (seq (* (or 
"_" alnum)) letter)
-                                                                ""))
+      (when (string-match (rx bos (group-n 1
+                                    (or "_" upper)
+                                    (or (seq (* (or "_" alnum)) (or letter 
"_")) ""))
                               (group-n 2 (or "0" (seq (any (?1 . ?9)) (* 
digit)))) eos)
                           string)
         (cons (match-string 1 string)