; Fix trivial mistake in emoji--choose-emoji

* lisp/international/emoji.el (emoji--choose-emoji): The derived versions are in the cdr not cadr.
2023-02-05 17:50:10 +01:00
parent d7b4a8487f
commit 929daafa1d
1 changed files with 1 additions and 1 deletions
--- 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