mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-03-26 08:41:47 -07:00
Code Issues Projects Releases Wiki Activity

Tentative fix ert-play-keys

Browse source 
* test/lisp/ses-tests.el (ert-play-keys): Use
`execute-kbd-macro' rather than `funcall'.
This commit is contained in:
Vincent Belaïche 2026-03-18 23:29:33 +01:00
parent b5144b90a7
commit f3a3ca40f3
1 changed files with 12 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

22
test/lisp/ses-tests.el
View file

@ -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 ()