# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 917490804 0
# Node ID 6964e11724dc32bb4d2424aa27c1f3f0d46c624a
# Parent  69b4c339845d44f6e06d8b1c996bcda7cb15e765
Set category `q' for all characters
in tibetan and tibetan-1-column.

diff -r 69b4c339845d -r 6964e11724dc lisp/international/characters.el
--- a/lisp/international/characters.el	Wed Jan 27 22:04:05 1999 +0000
+++ b/lisp/international/characters.el	Thu Jan 28 02:33:24 1999 +0000
@@ -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