diff options
| author | Kenichi Handa | 1997-06-18 12:55:57 +0000 |
|---|---|---|
| committer | Kenichi Handa | 1997-06-18 12:55:57 +0000 |
| commit | c23d387243dc4818198fc405373c4c9b8e4a3d19 (patch) | |
| tree | 228822e98de9791f778fce1763e3ebd8192fe645 | |
| parent | 44c034c1187a2a818c623063dd359bed4a935e8d (diff) | |
| download | emacs-c23d387243dc4818198fc405373c4c9b8e4a3d19.tar.gz emacs-c23d387243dc4818198fc405373c4c9b8e4a3d19.zip | |
Set syntaxes of Ethiopic characters.
| -rw-r--r-- | lisp/international/characters.el | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/lisp/international/characters.el b/lisp/international/characters.el index 4820d910e73..087b0ff92fc 100644 --- a/lisp/international/characters.el +++ b/lisp/international/characters.el | |||
| @@ -221,6 +221,11 @@ | |||
| 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 | ||