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

Set category `l' (latin) for more

Browse source 
characters.
This commit is contained in:
Kenichi Handa 2007-03-05 01:45:04 +00:00
parent 4968aeffb3
commit 661f3ce930
1 changed files with 5 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
lisp/international/characters.el
View file

@ -913,10 +913,13 @@
(let ((tbl (standard-case-table)) c)
;; Latin Extended-A, Latin Extended-B
;; Latin Extended-A, Latin Extended-B, IPA
(setq c #x0100)
(while (<= c #x0233)
(while (<= c #x02AF)
(modify-category-entry (decode-char 'ucs c) ?l)
(setq c #x0100)
(while (<= c #x0177)
(and (or (<= c #x012e)
(and (>= c #x014a) (<= c #x0177)))
(zerop (% c 2))