master dbfe57472e: Fix describe-char-fold-equivalences for composed characters

[Robert Pluim]

branch: master
commit dbfe57472e4b56c8e9b72b1714492bfb0c005213
Author: Robert Pluim <rpluim@gmail.com>
Commit: Robert Pluim <rpluim@gmail.com>

    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 4e3aa058fc..b2002826f7 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))