; Fix trivial mistake in emoji--choose-emoji

* lisp/international/emoji.el (emoji--choose-emoji): The derived
versions are in the cdr not cadr.

diff --git a/lisp/international/emoji.el b/lisp/international/emoji.el
index 18fc167974c58010b97bbad7ae46901e9aa11c7a..bcd4aac4f29d76f50523d43b72a194b75fbf91bf 100644 (file)
--- a/lisp/international/emoji.el
+++ b/lisp/international/emoji.el
@@ -685,7 +685,7 @@ We prefer the earliest unique letter."
         (cons glyph (gethash glyph emoji--derived))))))
 
 (defun emoji--choose-emoji ()
-  (pcase-let ((`(,glyph ,derived) (emoji--read-emoji)))
+  (pcase-let ((`(,glyph . ,derived) (emoji--read-emoji)))
     (if (not derived)
         ;; Simple glyph with no derivations.
         (progn