Commit 8f4faf7a authored by Juri Linkov's avatar Juri Linkov

* lisp/char-fold.el: Rename char-fold-make-table to char-fold--make-table.

parent be16c204
Pipeline #2639 passed with stage
in 58 minutes and 35 seconds
......@@ -44,7 +44,7 @@
(eval-and-compile
(defun char-fold-make-table ()
(defun char-fold--make-table ()
(let* ((equiv (make-char-table 'char-fold-table))
(equiv-multi (make-char-table 'char-fold-table))
(table (unicode-property-table-internal 'decomposition)))
......@@ -204,7 +204,7 @@
(defconst char-fold-table
(eval-when-compile
(char-fold-make-table))
(char-fold--make-table))
"Used for folding characters of the same group during search.
This is a char-table with the `char-fold-table' subtype.
......@@ -237,7 +237,7 @@ Exceptionally for the space character (32), ALIST is ignored.")
(or (bound-and-true-p char-fold-symmetric)
char-fold--default-symmetric))))
(unless (equal char-fold--previous new)
(setq char-fold-table (char-fold-make-table)
(setq char-fold-table (char-fold--make-table)
char-fold--previous new))))
(defcustom char-fold-include char-fold--default-include
......
......@@ -171,7 +171,7 @@
(ert-deftest char-fold--test-with-customization ()
:tags '(:expensive-test)
;; FIXME: move some language-specific settings to defaults
(let* ((char-fold-include
(let ((char-fold-include
(append char-fold-include
'(
(?o "ø") ;; da no nb nn
......@@ -189,7 +189,6 @@
(?n "ñ") ;; es
)))
(char-fold-symmetric t)
(char-fold-table (char-fold-make-table))
(matches
'(
("e" "ℯ" "ḗ" "ë" "ë")
......@@ -209,7 +208,10 @@
("o" "ö")
("n" "ñ")
("и" "й")
)))
))
;; Don't override global value by char-fold-update-table below
char-fold-table)
(char-fold-update-table)
(dolist (strings matches)
(dolist (permutation (char-fold--permutation strings))
(apply 'char-fold--test-match-exactly permutation)))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment