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

diff --git a/lisp/character-fold.el b/lisp/character-fold.el
index 15e76584fe06aa98e2ba94eaa789ca9814296577..7f5be8324a8a6f30ecb5461573e934cc2a87a015 100644 (file)
--- 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