[elpa] externals/xr f51db5fffe 3/3: Fix xr-pp-rx-to-str tests in Emacs 30

[ELPA Syncer]

branch: externals/xr
commit f51db5fffe2737e104b1c9a4da829128be978f49
Author: Mattias Engdegård <mattiase@acm.org>
Commit: Mattias Engdegård <mattiase@acm.org>

    Fix xr-pp-rx-to-str tests in Emacs 30
    
    `xr-pp-rx-to-str` uses `pp-buffer` which now uses a different
    algorithm by default; set `pp-default-function` in the test to
    get the same behaviour as before.
    Maybe we should do this change in `xr-pp-rx-to-str` instead,
    but the new algorithm could also be useful.
---
 xr-test.el | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/xr-test.el b/xr-test.el
index f93f89b115..023dd5f691 100644
--- a/xr-test.el
+++ b/xr-test.el
@@ -307,7 +307,9 @@
                  "(group-n 7 ?f)\n"))
   (should (equal (xr-pp-rx-to-str '(backref 12 ?g))
                  "(backref 12 ?g)\n"))
-  (let ((indent-tabs-mode nil))
+  (defvar pp-default-function)   ; introduced in Emacs 30
+  (let ((indent-tabs-mode nil)
+        (pp-default-function 'pp-28))
     (should (equal (xr-pp-rx-to-str
                     '(seq (1+ nonl
                               (or "a"