Mercurial > emacs
changeset 24208:6964e11724dc
Set category `q' for all characters
in tibetan and tibetan-1-column.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Thu, 28 Jan 1999 02:33:24 +0000 |
| parents | 69b4c339845d |
| children | d0853770c8e7 |
| files | lisp/international/characters.el |
| diffstat | 1 files changed, 2 insertions(+), 6 deletions(-) [+] |
line wrap: on
line diff
--- 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