From: Kenichi Handa <handa@m17n.org>
Date: Wed, 18 Jun 1997 12:55:57 +0000 (+0000)
Subject: Set syntaxes of Ethiopic characters.
X-Git-Tag: emacs-20.1~1642
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c23d387243dc4818198fc405373c4c9b8e4a3d19;p=emacs.git

Set syntaxes of Ethiopic characters.
---

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 @@
 ;; Ethiopic character set
 
 (modify-category-entry (make-char 'ethiopic) ?e)
+(modify-syntax-entry (make-char 'ethiopic) "w")
+(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)))
+  (while chars
+    (modify-syntax-entry (car chars) ".")
+    (setq chars (cdr chars))))
 
 ;; European character set (Latin-1,2,3,4,5)