Re: Better emoji support

[Robert Pluim]

>>>>> On Fri, 17 Sep 2021 22:42:46 +0900, Jean-Christophe Helary 
>>>>> <lists@traduction-libre.org> said:

    Jean-Christophe> Robert,

    Jean-Christophe> Would you mind specifying what to test and how to test it ?

It should all Just Work™ :-)

>From admin/notes/unicode:

    Visit "emoji-data.txt" with the rebuilt Emacs, and check that an
    appropriate font is being used for the emoji (by default Emacs uses
    "Noto Color Emoji").  Running the following command in that buffer
    will give you an idea of which codepoints are not supported by
    whichever font Emacs is using.

    (defun check-emoji-coverage (font-name-regexp)
    "Display a buffer containing emoji codepoints for which FONT-NAME is not 
used.
    This must be run from a buffer in the format of emoji-data.txt.
    FONT-NAME-REGEXP is checked using `string-match'."
    (interactive "MFont Name: ")
    (save-excursion
    (goto-char (point-min))
    (let (res char name ifont)
      (while (re-search-forward "; Emoji [^(]+(\\(.\\)[).\uFE0F]" nil t)
        (setq char (aref (match-string 1) 0))
        (setq ifont (car (internal-char-font nil char)))
        (when ifont
          (setq name (font-xlfd-name ifont)))
        (if (or (not ifont) (not (string-match font-name-regexp name)))
            (setq res (concat (string char) res))))
      (when res
        (with-output-to-temp-buffer "*Check-Emoji-Coverage*"
          (princ (format "Font not matching '%s' was used for the following 
characters:\n%s"
                         font-name-regexp (reverse res))))))))


Robert
--