Commit 363f1d4d authored by Juri Linkov's avatar Juri Linkov

Improve display of composed character names in "C-u C-x =" on GUI frames

* lisp/descr-text.el (describe-char): On GUI frames, display the
Unicode names of really composed characters only (Bug#42256)
parent 36e60190
Pipeline #6053 passed with stage
in 58 minutes and 17 seconds
......@@ -775,13 +775,16 @@ The character information includes:
(setq glyph (lgstring-glyph gstring from)))
(insert (format " %S\n" glyph))
(setq from (1+ from)))
(insert "from these characters:\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))))))
(when (and (stringp (car composition))
(string-match "\"\\([^\"]+\\)\"" (car composition)))
(insert "with these character(s):\n")
(let ((chars (match-string 1 (car composition))))
(dotimes (i (length chars))
(let ((char (aref chars 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