From 2fa33eb6ee20e48a4c6488bb0d55b3c1c9a1f721 Mon Sep 17 00:00:00 2001 From: Mattias Engdegård Date: Sun, 29 Sep 2019 16:59:58 +0200 Subject: 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. --- test/lisp/emacs-lisp/rx-tests.el | 3 +++ 1 file changed, 3 insertions(+) (limited to 'test/lisp/emacs-lisp') diff --git a/test/lisp/emacs-lisp/rx-tests.el b/test/lisp/emacs-lisp/rx-tests.el index 11de4771dea..76dcf419428 100644 --- 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) -- cgit v1.2.3