master 46a0c11: Display "C-u C-x =" composed character names on GUI frames as well

[Juri Linkov]

branch: master
commit 46a0c115f041d246b26ffcd93a8adbfab01e4b07
Author: Juri Linkov <juri@linkov.net>
Commit: Juri Linkov <juri@linkov.net>

    Display "C-u C-x =" composed character names on GUI frames as well
    
    * lisp/descr-text.el (describe-char): On GUI frames, display the
    Unicode names of the composed characters like they are displayed
    on TTY frames.  (Bug#42256)
---
 lisp/descr-text.el | 13 ++++++++++---
 1 file changed, 10 insertions(+), 3 deletions(-)

diff --git a/lisp/descr-text.el b/lisp/descr-text.el
index 22c162a..4de1a7b 100644
--- a/lisp/descr-text.el
+++ b/lisp/descr-text.el
@@ -763,8 +763,8 @@ The character information includes:
                        (to (nth 4 composition))
                        glyph)
                   (if (fontp font)
-                      ;; GUI frame: show composition in terms of font
-                      ;; glyphs.
+                      ;; GUI frame: show composition in terms of
+                      ;; font glyphs and characters.
                       (progn
                         (insert " using this font:\n  "
                                 (symbol-name (font-get font :type))
@@ -774,7 +774,14 @@ The character information includes:
                         (while (and (<= from to)
                                     (setq glyph (lgstring-glyph gstring from)))
                           (insert (format "  %S\n" glyph))
-                          (setq from (1+ from))))
+                          (setq from (1+ from)))
+                        (insert "from these character(s):\n")
+                        (dotimes (i (lgstring-char-len gstring))
+                          (let ((char (lgstring-char gstring i)))
+                            (insert (format "  %c (#x%x) %s\n"
+                                            char char
+                                            (get-char-code-property
+                                             char 'name))))))
                     ;; TTY frame: show composition in terms of characters.
                     (insert " by these characters:\n")
                     (while (and (<= from to)