[Emacs-diffs] master 80e46ac: * lisp/character-fold.el (character-fold-table): Fix table generation

[Artur Malabarba]

branch: master
commit 80e46ac5e1fd6f76edbf272bf2ec7d90edadf2ea
Author: Artur Malabarba <address@hidden>
Commit: Artur Malabarba <address@hidden>

    * lisp/character-fold.el (character-fold-table): Fix table generation
---
 lisp/character-fold.el |    9 ++++++++-
 1 files changed, 8 insertions(+), 1 deletions(-)

diff --git a/lisp/character-fold.el b/lisp/character-fold.el
index 15e7658..7f5be83 100644
--- a/lisp/character-fold.el
+++ b/lisp/character-fold.el
@@ -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