procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source
This commit is contained in:
Artur Malabarba 2015-06-25 02:52:02 +01:00
parent e7128f6263
commit 80e46ac5e1
1 changed files with 8 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
lisp/character-fold.el
View file

@ -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