mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-26 07:33:47 +00:00
Code Issues Releases Activity

; Fix trivial mistake in emoji--choose-emoji

Browse Source 
* 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
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lisp/international/emoji.el
View File

@ -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