From dbfe57472e4b56c8e9b72b1714492bfb0c005213 Mon Sep 17 00:00:00 2001 From: Robert Pluim Date: Wed, 31 Aug 2022 18:08:49 +0200 Subject: [PATCH] Fix describe-char-fold-equivalences for composed characters * 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. --- lisp/char-fold.el | 19 ++++++++++++------- 1 file changed, 12 insertions(+), 7 deletions(-) diff --git a/lisp/char-fold.el b/lisp/char-fold.el index 4e3aa058fcb..b2002826f73 100644 --- a/lisp/char-fold.el +++ b/lisp/char-fold.el @@ -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)) -- 2.39.2