Mercurial > emacs

comparison lisp/international/characters.el @ 76328:ba37b237dffb

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fix previous change.
author Kenichi Handa <handa@m17n.org>
date Mon, 05 Mar 2007 07:00:16 +0000
parents 04450c7274c8
children 0ccf5ac2795e
comparison
equal deleted inserted replaced
76327:04450c7274c8 76328:ba37b237dffb
915 915
916 ;; Latin Extended-A, Latin Extended-B, IPA 916 ;; Latin Extended-A, Latin Extended-B, IPA
917 (setq c #x0100) 917 (setq c #x0100)
918 (while (<= c #x02AF) 918 (while (<= c #x02AF)
919 (modify-category-entry (decode-char 'ucs c) ?l) 919 (modify-category-entry (decode-char 'ucs c) ?l)
920 (setq c (1+ 1))) 920 (setq c (1+ c)))
921 921
922 (setq c #x0100) 922 (setq c #x0100)
923 (while (<= c #x0177) 923 (while (<= c #x0177)
924 (and (or (<= c #x012e) 924 (and (or (<= c #x012e)
925 (and (>= c #x014a) (<= c #x0177))) 925 (and (>= c #x014a) (<= c #x0177)))