forgot the factor of 8 in the range

This commit is contained in:
Alex Shinn 2019-09-13 23:31:40 +08:00
parent 713c6f7135
commit dc18568236

View file

@ -284,7 +284,7 @@
((<= #xFFE0 ci #xFFE6) 2) ((<= #xFFE0 ci #xFFE6) 2)
((<= #x20000 ci #x30000) 2) ((<= #x20000 ci #x30000) 2)
;; non-spacing mark (Mn) ranges from UnicodeData.txt ;; non-spacing mark (Mn) ranges from UnicodeData.txt
((<= #x0300 ci #x06bd) ; #x3029 ((<= #x0300 ci #x20fd) ; #x3029
;; inlined bit-vector-ref for portability ;; inlined bit-vector-ref for portability
(let* ((i (- ci #x0300)) (let* ((i (- ci #x0300))
(byte (quotient i 8)) (byte (quotient i 8))