Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-16 17:24:23 +00:00
Code Issues Projects Releases Packages Wiki Activity

Set category of Coptic characters be 'g' (Greek).

Browse source
This commit is contained in:
Eli Zaretskii 2014-04-12 11:49:05 +03:00
parent ac387dd13e
commit 204db02a2b
2 changed files with 6 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
lisp/ChangeLog
View file

@ -2,6 +2,7 @@
* international/characters.el <standard-case-table>: Add entries
for letters from the Coptic block u+2C80-u+2CFF. (Bug#17243)
Set category of Coptic characters be 'g' (Greek).
2014-04-12 Leo Liu <sdl.web@gmail.com>

11
lisp/international/characters.el
View file

@ -798,13 +798,12 @@ with L, LRE, or LRO Unicode bidi character type.")
(let ((from (car elt)) (to (cdr elt)))
(while (< from to)
(set-case-syntax-pair from (1+ from) tbl)
;; There's no Coptic category. However, Coptic letters that
;; are part of the Greek block above get the Greek category,
;; and those in this block are derived from Greek letters,
;; so let's be consistent about their category.
(modify-category-entry from ?g)
(modify-category-entry (1+ from) ?g)
(setq from (+ from 2))))))
;; There's no Coptic category. However, Coptic letters that are
;; part of the Greek block above get the Greek category, and those
;; in this block are derived from Greek letters, so let's be
;; consistent about their category.
(modify-category-entry '(#x2C80 . #x2CFF) ?g)
;; Fullwidth Latin
(setq c #xff21)