From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Sun, 7 Nov 2021 15:04:18 +0000 (+0100)
Subject: Make emoji-describe really describe only the glyph under point
X-Git-Tag: emacs-29.0.90~3671^2~103
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=3886c95d7ef20e40b5d3625d4650b89612f7efdd;p=emacs.git

Make emoji-describe really describe only the glyph under point

* lisp/international/emoji.el (emoji-describe): Only look at the
compositions under point (bug#51659).
---

diff --git a/lisp/international/emoji.el b/lisp/international/emoji.el
index f95a9e79c4e..2cba707b5fa 100644
--- a/lisp/international/emoji.el
+++ b/lisp/international/emoji.el
@@ -120,7 +120,7 @@ character) under point is."
   (interactive
    (list (if (eobp)
              (error "No glyph under point")
-           (let ((comp (find-composition (point))))
+           (let ((comp (find-composition (point) (1+ (point)))))
              (if comp
                  (buffer-substring-no-properties (car comp) (cadr comp))
                (buffer-substring-no-properties (point) (1+ (point))))))