From f3a3ca40f3d9f8d52b3e18fdcfa611bf052dd298 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Vincent=20Bela=C3=AFche?= <vincentb1@users.sourceforge.net>
Date: Wed, 18 Mar 2026 23:29:33 +0100
Subject: [PATCH] Tentative fix ert-play-keys

* test/lisp/ses-tests.el (ert-play-keys): Use
`execute-kbd-macro' rather than `funcall'.
---
 test/lisp/ses-tests.el | 22 ++++++++++++----------
 1 file changed, 12 insertions(+), 10 deletions(-)

diff --git a/test/lisp/ses-tests.el b/test/lisp/ses-tests.el
index d74221ef674..c4532105e9f 100644
--- a/test/lisp/ses-tests.el
+++ b/test/lisp/ses-tests.el
@@ -267,16 +267,18 @@ cell has to be rewritten to data area."
 (defmacro ert-play-keys (&rest keys)
   (let ((buf (make-symbol "buf")))
     `(let ((,buf (current-buffer)))
-       (funcall
-        (kmacro (concat
-                 "M-: ( p o p - t o - b u f f e r SPC \" "
-                 ,`(mapconcat (lambda (x)
-                                (cond
-                                 ((= x 32) "SPC")
-                                 (t (string x))))
-                              (buffer-name ,buf) " ")
-                 " \" ) RET "
-                 ,@keys))))))
+       (execute-kbd-macro
+        (kmacro--keys
+         (kmacro
+          (concat
+           "M-: ( p o p - t o - b u f f e r SPC \" "
+           ,`(mapconcat (lambda (x)
+                          (cond
+                           ((= x 32) "SPC")
+                           (t (string x))))
+                        (buffer-name ,buf) " ")
+           " \" ) RET "
+           ,@keys)))))))
 
 
 (ert-deftest ses-read-column-printer ()