From: Kenichi Handa <handa@m17n.org>
Date: Thu, 28 Jan 1999 02:33:24 +0000 (+0000)
Subject: Set category `q' for all characters
X-Git-Tag: emacs-20.4~741
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=162308884ae1ee822f680921a07060aba9ca781c;p=emacs.git

Set category `q' for all characters
in tibetan and tibetan-1-column.
---

diff --git a/lisp/international/characters.el b/lisp/international/characters.el
index b378e9825d7..5eeafb22d6d 100644
--- a/lisp/international/characters.el
+++ b/lisp/international/characters.el
@@ -502,12 +502,8 @@
 
 ;; Tibetan character set
 
-(let ((row 33))
-  (while (< row 38)
-    (modify-category-entry (make-char 'tibetan row) ?q)
-    (setq row (1+ row))))
-
-(modify-category-entry (make-char 'tibetan-1-column 33) ?q)
+(modify-category-entry (make-char 'tibetan) ?q)
+(modify-category-entry (make-char 'tibetan-1-column) ?q)
 
 (let ((deflist	'(;; chars             syntax category
 		  ("$(7"!(B-$(7"J(B"        	"w"	?0) ; consonant