diff --git a/lisp/international/emoji.el b/lisp/international/emoji.el
index 4f4d4f48320..3d065b778e6 100644
--- a/lisp/international/emoji.el
+++ b/lisp/international/emoji.el
@@ -552,8 +552,7 @@ the name is not known."
             (apply (or class 'transient-prefix) :command name
                    (cons :variable-pitch (cons t slots))))
        (put name 'transient--layout
-            (cl-mapcan (lambda (s) (transient--parse-child name s))
-                       suffixes)))
+            (transient-parse-suffixes name suffixes)))
     name))
 
 (defun emoji--recent-transient (end-function)