From: Artur Malabarba <bruce.connor.am@gmail.com>
Date: Thu, 25 Jun 2015 01:52:02 +0000 (+0100)
Subject: * lisp/character-fold.el (character-fold-table): Fix table generation
X-Git-Tag: emacs-25.0.90~1649
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=80e46ac5e1fd6f76edbf272bf2ec7d90edadf2ea;p=emacs.git

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

diff --git a/lisp/character-fold.el b/lisp/character-fold.el
index 15e76584fe0..7f5be8324a8 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