; Fix trivial mistake in emoji--choose-emoji

* lisp/international/emoji.el (emoji--choose-emoji): The derived
versions are in the cdr not cadr.
This commit is contained in:
Jonas Bernoulli 2023-02-05 17:50:10 +01:00
parent d7b4a8487f
commit 929daafa1d

View file

@ -685,7 +685,7 @@ We prefer the earliest unique letter."
(cons glyph (gethash glyph emoji--derived)))))) (cons glyph (gethash glyph emoji--derived))))))
(defun emoji--choose-emoji () (defun emoji--choose-emoji ()
(pcase-let ((`(,glyph ,derived) (emoji--read-emoji))) (pcase-let ((`(,glyph . ,derived) (emoji--read-emoji)))
(if (not derived) (if (not derived)
;; Simple glyph with no derivations. ;; Simple glyph with no derivations.
(progn (progn