Commit 46a0c115 authored by Juri Linkov's avatar Juri Linkov

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)
parent 0339325d
Pipeline #6047 failed with stage
in 10 seconds
......@@ -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)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment