]> code.delx.au - gnu-emacs/blobdiff - lisp/international/ucs-normalize.el
Fix bootstrap broken by changes related to OS X file-name encoding
[gnu-emacs] / lisp / international / ucs-normalize.el
index 6f2fb2856da3d533a45fb01eda0fb041f6cb7f8e..de3c54534bde0f9ddac4583bd1e8af5c497845b7 100644 (file)
     (setq decomposition-pair-to-composition nil)
   (defvar non-starter-decompositions nil)
     (setq non-starter-decompositions nil)
+  ;; This file needs to access these 2 Unicode properties, but when we
+  ;; compile it during bootstrap, charprop.el was not built yet, and
+  ;; therefore is not yet loaded into bootstrap-emacs, so
+  ;; char-code-property-alist is nil, and get-char-code-property
+  ;; always returns nil, something the code here doesn't like.
+  (define-char-code-property 'decomposition "uni-decomposition.el")
+  (define-char-code-property 'canonical-combining-class "uni-combining.el")
   (let ((char 0) ccc decomposition)
     (mapc
      (lambda (start-end)