From: Jonas Bernoulli <jonas@bernoul.li>
Date: Sun, 5 Feb 2023 16:50:10 +0000 (+0100)
Subject: ; Fix trivial mistake in emoji--choose-emoji
X-Git-Tag: emacs-29.0.90~496^2
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=929daafa1d6;p=emacs.git

; 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 18fc167974c..bcd4aac4f29 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