diff options
| author | Robert Pluim <rpluim@gmail.com> | 2022-08-31 18:08:49 +0200 |
|---|---|---|
| committer | Robert Pluim <rpluim@gmail.com> | 2022-08-31 18:38:04 +0200 |
| commit | dbfe57472e4b56c8e9b72b1714492bfb0c005213 (patch) | |
| tree | 3db127964c7adb8acec794827c2aa3c1913332e3 | |
| parent | e90d0ea6a9c08e789283e29a7e2505491c8ff80c (diff) | |
| download | emacs-dbfe57472e4b56c8e9b72b1714492bfb0c005213.tar.gz emacs-dbfe57472e4b56c8e9b72b1714492bfb0c005213.tar.bz2 emacs-dbfe57472e4b56c8e9b72b1714492bfb0c005213.zip | |
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.
| -rw-r--r-- | lisp/char-fold.el | 19 |
1 files 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)) |