summaryrefslogtreecommitdiff
path: root/lisp
diff options
context:
space:
mode:
authorEli Zaretskii <eliz@gnu.org>2023-02-05 18:53:36 +0200
committerEli Zaretskii <eliz@gnu.org>2023-02-05 18:53:36 +0200
commit0862a79fef57b0954c9c47ac3783b40d6aeaef98 (patch)
tree7d55e71e02dc2e238a5cf69149ad562263c27d9d /lisp
parentbb999df5d6f26bb1214ffad844a8b6fbf18c682e (diff)
parent929daafa1d6ca786507e726e21aa295c3b4afe00 (diff)
downloademacs-0862a79fef57b0954c9c47ac3783b40d6aeaef98.tar.gz
emacs-0862a79fef57b0954c9c47ac3783b40d6aeaef98.tar.bz2
emacs-0862a79fef57b0954c9c47ac3783b40d6aeaef98.zip
Merge branch 'emacs-29' of git.savannah.gnu.org:/srv/git/emacs into emacs-29
Diffstat (limited to 'lisp')
-rw-r--r--lisp/international/emoji.el2
1 files changed, 1 insertions, 1 deletions
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