; 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:
parent
d7b4a8487f
commit
929daafa1d
1 changed files with 1 additions and 1 deletions
|
@ -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
|
||||||
|
|
Loading…
Add table
Reference in a new issue