Mercurial > emacs

comparison lisp/international/characters.el @ 18304:58b39b4108d5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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)