emacs-29 929daafa1d: ; Fix trivial mistake in emoji--choose-emoji

[Jonas Bernoulli]

branch: emacs-29
commit 929daafa1d6ca786507e726e21aa295c3b4afe00
Author: Jonas Bernoulli <jonas@bernoul.li>
Commit: Jonas Bernoulli <jonas@bernoul.li>

    ; Fix trivial mistake in emoji--choose-emoji
    
    * lisp/international/emoji.el (emoji--choose-emoji): The derived
    versions are in the cdr not cadr.
---
 lisp/international/emoji.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lisp/international/emoji.el b/lisp/international/emoji.el
index 18fc167974..bcd4aac4f2 100644
--- 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