From: Robert Pluim <rpluim@gmail.com>
Date: Wed, 31 Aug 2022 16:08:49 +0000 (+0200)
Subject: Fix describe-char-fold-equivalences for composed characters
X-Git-Tag: emacs-29.0.90~1856^2~817
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=dbfe57472e4b56c8e9b72b1714492bfb0c005213;p=emacs.git

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.
---

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))