diff options
| author | Juri Linkov <juri@linkov.net> | 2020-07-13 02:33:02 +0300 |
|---|---|---|
| committer | Juri Linkov <juri@linkov.net> | 2020-07-13 02:33:02 +0300 |
| commit | 46a0c115f041d246b26ffcd93a8adbfab01e4b07 (patch) | |
| tree | 8472f5571d03de027a62853056e0c1cea69922e0 /lisp/descr-text.el | |
| parent | 0339325d538ead1bfb2bf3fd9c96120de96d1e9c (diff) | |
| download | emacs-46a0c115f041d246b26ffcd93a8adbfab01e4b07.tar.gz emacs-46a0c115f041d246b26ffcd93a8adbfab01e4b07.tar.bz2 emacs-46a0c115f041d246b26ffcd93a8adbfab01e4b07.zip | |
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)
Diffstat (limited to 'lisp/descr-text.el')
| -rw-r--r-- | lisp/descr-text.el | 13 |
1 files changed, 10 insertions, 3 deletions
diff --git a/lisp/descr-text.el b/lisp/descr-text.el index 22c162a05ac..4de1a7b7005 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) |