diff options
| author | Juri Linkov <juri@linkov.net> | 2020-07-16 02:43:06 +0300 |
|---|---|---|
| committer | Juri Linkov <juri@linkov.net> | 2020-07-16 02:43:06 +0300 |
| commit | 96971e38a6bfb1302cb59eab55d75c9868ea663a (patch) | |
| tree | e5d542063d91e37ebb1c88353a0031c6e5b9dd7d /lisp/descr-text.el | |
| parent | 85eaa8373bb0a91013af503d333670788ec5a956 (diff) | |
| download | emacs-96971e38a6bfb1302cb59eab55d75c9868ea663a.tar.gz | |
Use describe-char-padded-string for composed character names in "C-u C-x ="
* lisp/descr-text.el (describe-char): Use describe-char-padded-string
for displaying Unicode names of composed characters on GUI frames.
(Bug#42256)
Diffstat (limited to 'lisp/descr-text.el')
| -rw-r--r-- | lisp/descr-text.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/descr-text.el b/lisp/descr-text.el index be5e01435a7..55f0b7dcb40 100644 --- a/lisp/descr-text.el +++ b/lisp/descr-text.el @@ -781,8 +781,8 @@ The character information includes: (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 + (insert (format " %s (#x%x) %s\n" + (describe-char-padded-string char) char (get-char-code-property char 'name)))))))) ;; TTY frame: show composition in terms of characters. |