Add `rx-submatch-n' for compatibility (bug#37517)

It was an internal symbol in the old `rx' implementation, used in old
versions of the `flycheck' package.

* lisp/emacs-lisp/rx.el (rx-submatch-n): Alias of `rx-to-string'.
* test/lisp/emacs-lisp/rx-tests.el (rx-compat): Test it.

diff --git a/lisp/emacs-lisp/rx.el b/lisp/emacs-lisp/rx.el
index a192ed1ad27629694d58f49c560809b10d7ff0af..45fec796cc3e7372c12db4200cf119931a22f14a 100644 (file)
--- a/lisp/emacs-lisp/rx.el
+++ b/lisp/emacs-lisp/rx.el
@@ -1254,6 +1254,9 @@ following constructs:
                         `(app (match-string ,i) ,name))
                       (reverse rx--pcase-vars))))))
 
+;; Obsolete internal symbol, used in old versions of the `flycheck' package.
+(define-obsolete-function-alias 'rx-submatch-n 'rx-to-string "27.1")
+
 (provide 'rx)
 
 ;;; rx.el ends here

diff --git a/test/lisp/emacs-lisp/rx-tests.el b/test/lisp/emacs-lisp/rx-tests.el
index 11de4771dead60f25e5d53f21e0e2949ad6287ac..76dcf4194286dd5c4b4d62aecdb801a6dc4e5ad1 100644 (file)
--- a/test/lisp/emacs-lisp/rx-tests.el
+++ b/test/lisp/emacs-lisp/rx-tests.el
@@ -416,5 +416,8 @@
     (should (equal (rx-to-string '(seq (delta a b c) (* (epsilon d e))) t)
                    "\\(?:<(delta a b c)>\\)\\(?:<(epsilon d e)>\\)*"))))
 
+(ert-deftest rx-compat ()
+  "Test old symbol retained for compatibility (bug#37517)."
+  (should (equal (rx-submatch-n '(group-n 3 (+ nonl) eol)) "\\(?3:.+$\\)")))
 
 (provide 'rx-tests)