From 162308884ae1ee822f680921a07060aba9ca781c Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Thu, 28 Jan 1999 02:33:24 +0000 Subject: [PATCH] Set category `q' for all characters in tibetan and tibetan-1-column. --- lisp/international/characters.el | 8 ++------ 1 file changed, 2 insertions(+), 6 deletions(-) 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 -- 2.39.2