From 929daafa1d6ca786507e726e21aa295c3b4afe00 Mon Sep 17 00:00:00 2001 From: Jonas Bernoulli Date: Sun, 5 Feb 2023 17:50:10 +0100 Subject: [PATCH] ; 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 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 -- 2.39.5