Mercurial > emacs
comparison lisp/international/characters.el @ 18304:58b39b4108d5
Set syntaxes of Ethiopic characters.
author | Kenichi Handa <handa@m17n.org> |
---|---|
date | Wed, 18 Jun 1997 12:55:57 +0000 |
parents | 40dc3b2e9e27 |
children | 8b4a66c66dd6 |
comparison
equal
deleted
inserted
replaced
18303:8d8d4aa12426 | 18304:58b39b4108d5 |
---|---|
219 (setq deflist (cdr deflist)))) | 219 (setq deflist (cdr deflist)))) |
220 | 220 |
221 ;; Ethiopic character set | 221 ;; Ethiopic character set |
222 | 222 |
223 (modify-category-entry (make-char 'ethiopic) ?e) | 223 (modify-category-entry (make-char 'ethiopic) ?e) |
224 (modify-syntax-entry (make-char 'ethiopic) "w") | |
225 (let ((chars '(?$(3$h(B ?$(3$i(B ?$(3$j(B ?$(3$k(B ?$(3$l(B ?$(3$m(B ?$(3$n(B ?$(3$o(B ?$(3%i(B ?$(3%t(B ?$(3%u(B ?$(3%v(B ?$(3%w(B ?$(3%x(B))) | |
226 (while chars | |
227 (modify-syntax-entry (car chars) ".") | |
228 (setq chars (cdr chars)))) | |
224 | 229 |
225 ;; European character set (Latin-1,2,3,4,5) | 230 ;; European character set (Latin-1,2,3,4,5) |
226 | 231 |
227 (modify-category-entry (make-char 'latin-iso8859-1) ?l) | 232 (modify-category-entry (make-char 'latin-iso8859-1) ?l) |
228 (modify-category-entry (make-char 'latin-iso8859-2) ?l) | 233 (modify-category-entry (make-char 'latin-iso8859-2) ?l) |