[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
bug#46240: Sorting order of read-char-by-name
From: |
Juri Linkov |
Subject: |
bug#46240: Sorting order of read-char-by-name |
Date: |
Mon, 01 Feb 2021 19:23:41 +0200 |
User-agent: |
Gnus/5.13 (Gnus v5.13) Emacs/28.0.50 (x86_64-pc-linux-gnu) |
Tags: patch
After typing e.g. 'C-x 8 RET GREEK TAB' completions are sorted in an
non-alphabetical order:
Ͳ GREEK CAPITAL LETTER ARCHAIC SAMPI
Β GREEK CAPITAL LETTER BETA
Χ GREEK CAPITAL LETTER CHI
Ϯ GREEK CAPITAL LETTER DEI
Δ GREEK CAPITAL LETTER DELTA
where the 22nd letter of the Greek alphabet CHI is between BETA and DELTA.
This is because currently completions are sorted by English names.
The following patch sorts them by their Unicode order that mostly follows
the alphabetical order, and at least makes more sense to be consistent
with Unicode tables where characters are grouped more logically.
Then the above example is sorted alphabetically:
Α GREEK CAPITAL LETTER ALPHA
Β GREEK CAPITAL LETTER BETA
Γ GREEK CAPITAL LETTER GAMMA
Δ GREEK CAPITAL LETTER DELTA
Ε GREEK CAPITAL LETTER EPSILON
More examples with better sorting is 'C-x 8 RET SUBSCRIPT TAB'
where instead of sorting by names of numbers:
₈ SUBSCRIPT DIGIT EIGHT
₅ SUBSCRIPT DIGIT FIVE
₄ SUBSCRIPT DIGIT FOUR
₉ SUBSCRIPT DIGIT NINE
₁ SUBSCRIPT DIGIT ONE
₇ SUBSCRIPT DIGIT SEVEN
₆ SUBSCRIPT DIGIT SIX
will be sorted by numerical order:
₀ SUBSCRIPT DIGIT ZERO
₁ SUBSCRIPT DIGIT ONE
₂ SUBSCRIPT DIGIT TWO
₃ SUBSCRIPT DIGIT THREE
₄ SUBSCRIPT DIGIT FOUR
₅ SUBSCRIPT DIGIT FIVE
etc.
diff --git a/lisp/international/mule-cmds.el b/lisp/international/mule-cmds.el
index 5dc3de4422..0593d72279 100644
--- a/lisp/international/mule-cmds.el
+++ b/lisp/international/mule-cmds.el
@@ -3083,6 +3083,12 @@ mule--ucs-names-affixation
(list name (concat (if char (format "%c" char) " ") "\t") "")))
names))
+(defun mule--ucs-names-sort-by-char (names)
+ (let* ((chars-and-names
+ (mapcar (lambda (name) (cons (gethash name ucs-names) name)) names))
+ (sorted (sort chars-and-names (lambda (a b) (< (car a) (car b))))))
+ (mapcar #'cdr sorted)))
+
(defun char-from-name (string &optional ignore-case)
"Return a character as a number from its Unicode name STRING.
If optional IGNORE-CASE is non-nil, ignore case in STRING.
@@ -3132,6 +3138,7 @@ read-char-by-name
(if (eq action 'metadata)
'(metadata
(affixation-function . mule--ucs-names-affixation)
+ (display-sort-function . mule--ucs-names-sort-by-char)
(category . unicode-name))
(complete-with-action action (ucs-names) string pred)))))
(char
- bug#46240: Sorting order of read-char-by-name,
Juri Linkov <=
- bug#46240: Sorting order of read-char-by-name, Eli Zaretskii, 2021/02/01
- bug#46240: Sorting order of read-char-by-name, Lars Ingebrigtsen, 2021/02/02
- bug#46240: Sorting order of read-char-by-name, Juri Linkov, 2021/02/02
- bug#46240: [External] : bug#46240: Sorting order of read-char-by-name, Drew Adams, 2021/02/02
- bug#46240: Sorting order of read-char-by-name, Eli Zaretskii, 2021/02/02
- bug#46240: Sorting order of read-char-by-name, Lars Ingebrigtsen, 2021/02/03
- bug#46240: Sorting order of read-char-by-name, Lars Ingebrigtsen, 2021/02/03
- bug#46240: Sorting order of read-char-by-name, Eli Zaretskii, 2021/02/03
- bug#46240: Sorting order of read-char-by-name, Lars Ingebrigtsen, 2021/02/03
- bug#46240: Sorting order of read-char-by-name, Eli Zaretskii, 2021/02/03