procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix describe-char-fold-equivalences for composed characters

Browse source 
* lisp/char-fold.el (describe-char-fold-equivalences): Map
`get-char-code-property' across all the component codepoints of the
equivalent character rather than just the first one.
This commit is contained in:
Robert Pluim 2022-08-31 18:08:49 +02:00
parent e90d0ea6a9
commit dbfe57472e
1 changed files with 12 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

19
lisp/char-fold.el
View file

@ -469,13 +469,18 @@ non-canonical equivalences."
(with-help-window (help-buffer)
(with-current-buffer standard-output
(if char
(insert (mapconcat
(lambda (c)
(format "%s: \?\\N{%s}\n"
c
(or (get-char-code-property (string-to-char c) 'name)
(get-char-code-property (string-to-char c) 'old-name))))
equivalences))
(insert
(mapconcat
(lambda (c)
(format "%s: %s\n"
c
(mapconcat
(lambda (ch)
(format "?\\N{%s}"
(or (get-char-code-property ch 'name)
(get-char-code-property ch 'old-name))))
c)))
equivalences))
(insert "A list of char-fold equivalences for `char-fold-to-regexp':\n\n")
(setq-local bidi-paragraph-direction 'left-to-right)
(dolist (equiv (nreverse equivalences))