Commit 80e46ac5 authored by Artur Malabarba's avatar Artur Malabarba
Browse files

* lisp/character-fold.el (character-fold-table): Fix table generation

parent e7128f62
......@@ -33,7 +33,14 @@ some).")
(defconst character-fold-table
(eval-when-compile
(let ((equiv (make-char-table 'character-fold-table)))
(let* ((equiv (make-char-table 'character-fold-table))
(table (unicode-property-table-internal 'decomposition))
(func (char-table-extra-slot table 1)))
;; Ensure the table is populated
(map-char-table
(lambda (i v) (when (consp i) (funcall func (car i) v table)))
table)
;; Compile a list of all complex characters that each simple
;; character should match.
(map-char-table
......
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