[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master 46a0c11: Display "C-u C-x =" composed character names on GUI fram
From: |
Juri Linkov |
Subject: |
master 46a0c11: Display "C-u C-x =" composed character names on GUI frames as well |
Date: |
Sun, 12 Jul 2020 19:34:11 -0400 (EDT) |
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)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master 46a0c11: Display "C-u C-x =" composed character names on GUI frames as well,
Juri Linkov <=