mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-26 07:33:47 +00:00
Code Issues Releases Activity

Fix build failure caused by ‘Generate upcase and downcase tables from Unicode’

Browse Source 
The [5ec3a584: Generate upcase and downcase tables from Unicode data]
commit broke bootstrap from a truly clean tree (e.g. a fresh clone or
one created with ‘make extraclean’), see
<http://hydra.nixos.org/build/48774928>.

The failure was caused by characters.el trying to read Unicode
property tables which aren’t available so early in the build process.

Wrap the part that requires Unicode property tables in a condition
checking if those are available.  If they aren’t they case and syntax
tables won’t be fully set but later on, the characters.el file will be
evaluated again and this time with Unicode properties available so
final Emacs ends up with the exact same case and syntax tables.
This commit is contained in:
Michal Nazarewicz 2017-02-17 16:36:44 +01:00
parent 630e2d2e6a
commit 9f9863e502
1 changed files with 60 additions and 56 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

40
lisp/international/characters.el
View File

@ -665,22 +665,25 @@ with L, LRE, or LRO Unicode bidi character type.")
;; Combining marks
(modify-category-entry '(#x20d0 . #x20ff) ?^)
;; Set all Letter, uppercase; Letter, lowercase and Letter, titlecase syntax
;; to word.
(let ((syn-tab (standard-syntax-table)))
(let ((gc (unicode-property-table-internal 'general-category))
(syn-table (standard-syntax-table)))
;; In early bootstrapping Unicode tables are not available so we need to
;; skip this step in those cases.
(when gc
;; Set all Letter, uppercase; Letter, lowercase and Letter,
;; titlecase syntax to word.
(map-char-table
(lambda (ch cat)
(when (memq cat '(Lu Ll Lt))
(modify-syntax-entry ch "w " syn-tab)))
(unicode-property-table-internal 'general-category))
(modify-syntax-entry ch "w " syn-table)))
gc)
;; Ⅰ through Ⅻ had word syntax in the past so set it here as well.
;; The general category of those characters is Number, Letter.
(modify-syntax-entry '(#x2160 . #x216b) "w " syn-tab)
(modify-syntax-entry '(#x2160 . #x216b) "w " syn-table)
;; ⓐ through ⓩ are symbols, other according to Unicode but Emacs set
;; their syntax to word in the past so keep backwards compatibility.
(modify-syntax-entry '(#x24D0 . #x24E9) "w " syn-tab))
(modify-syntax-entry '(#x24D0 . #x24E9) "w " syn-table)
;; Set downcase and upcase from Unicode properties
@ -688,8 +691,8 @@ with L, LRE, or LRO Unicode bidi character type.")
;; U+0131 LATIN SMALL LETTER DOTLESS I make a case pair, and so do U+0130
;; LATIN CAPITAL LETTER I WITH DOT ABOVE and U+0069 LATIN SMALL LETTER I.
;; We used to set up half of those correspondence unconditionally, but that
;; makes searches slow. So now we don't set up either half of these
;; We used to set up half of those correspondence unconditionally, but
;; that makes searches slow. So now we don't set up either half of these
;; correspondences by default.
;; (set-downcase-syntax ?İ ?i tbl)
@ -699,8 +702,8 @@ with L, LRE, or LRO Unicode bidi character type.")
(lambda (property func)
(map-char-table
(lambda (ch cased)
;; ASCII characters skipped due to reasons outlined above. As of
;; Unicode 9.0, this exception affects the following:
;; ASCII characters skipped due to reasons outlined above. As
;; of Unicode 9.0, this exception affects the following:
;; lc(U+0130 İ) = i
;; uc(U+0131 ı) = I
;; uc(U+017F ſ) = S
@ -715,20 +718,21 @@ with L, LRE, or LRO Unicode bidi character type.")
(down tbl)
(up (case-table-get-table tbl 'up)))
;; This works on an assumption that if toUpper(x) != x then toLower(x) ==
;; x (and the opposite for toLower/toUpper). This doesn’t hold for title
;; case characters but those incorrect mappings will be overwritten later.
;; This works on an assumption that if toUpper(x) != x then toLower(x)
;; == x (and the opposite for toLower/toUpper). This doesn’t hold for
;; title case characters but those incorrect mappings will be
;; overwritten later.
(funcall map-unicode-property 'uppercase
(lambda (lc uc) (aset down lc lc) (aset up uc uc)))
(funcall map-unicode-property 'lowercase
(lambda (uc lc) (aset down lc lc) (aset up uc uc)))
;; Now deal with the actual mapping. This will correctly assign casing for
;; title-case characters.
;; Now deal with the actual mapping. This will correctly assign casing
;; for title-case characters.
(funcall map-unicode-property 'uppercase
(lambda (lc uc) (aset up lc uc) (aset up uc uc)))
(funcall map-unicode-property 'lowercase
(lambda (uc lc) (aset down uc lc) (aset down lc lc))))
(lambda (uc lc) (aset down uc lc) (aset down lc lc))))))
;; Clear out the extra slots so that they will be recomputed from the main
;; (downcase) table and upcase table. Since we’re side-stepping the usual