mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-13 09:32:47 +00:00
Code Issues Releases Activity

Improve display of compositions by "C-u C-x ="

Browse Source 
* lisp/descr-text.el (describe-char): On TTY frames, display the
Unicode names of the composed characters as well.  (Bug#42256)
This commit is contained in:
Eli Zaretskii 2020-07-09 20:42:04 +03:00
parent 59f563680d
commit 2d7c3e49b0
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lisp/descr-text.el
View File

@ -763,6 +763,8 @@ The character information includes:
(to (nth 4 composition))
glyph)
(if (fontp font)
;; GUI frame: show composition in terms of font
;; glyphs.
(progn
(insert " using this font:\n "
(symbol-name (font-get font :type))
@ -773,11 +775,14 @@ The character information includes:
(setq glyph (lgstring-glyph gstring from)))
(insert (format " %S\n" glyph))
(setq from (1+ from))))
;; TTY frame: show composition in terms of characters.
(insert " by these characters:\n")
(while (and (<= from to)
(setq glyph (lgstring-glyph gstring from)))
(insert (format " %c (#x%x)\n"
(lglyph-char glyph) (lglyph-char glyph)))
(insert (format " %c (#x%x) %s\n"
(lglyph-char glyph) (lglyph-char glyph)
(get-char-code-property
(lglyph-char glyph) 'name)))
(setq from (1+ from)))))
(insert " by the rule:\n\t(")
(let ((first t))