diff options
author | Richard M. Stallman <rms@gnu.org> | 1997-09-19 23:07:57 +0000 |
---|---|---|
committer | Richard M. Stallman <rms@gnu.org> | 1997-09-19 23:07:57 +0000 |
commit | 28636af64754aa60c36938f88295d4dedbf8521d (patch) | |
tree | a2fd0ba3de74faccb4a71f4d8ee218acc8c8288a /lisp/international | |
parent | 74994b1f7e022b4af626845b497131abeded6a17 (diff) | |
download | emacs-28636af64754aa60c36938f88295d4dedbf8521d.tar.gz |
Set case-table for Cyrillic characters.
Diffstat (limited to 'lisp/international')
-rw-r--r-- | lisp/international/characters.el | 54 |
1 files changed, 49 insertions, 5 deletions
diff --git a/lisp/international/characters.el b/lisp/international/characters.el index 65f2a8963e8..2527542e382 100644 --- a/lisp/international/characters.el +++ b/lisp/international/characters.el @@ -1,6 +1,6 @@ ;;; characters.el --- set syntax and category for multibyte characters -;; Copyright (C) 1995 Electrotechnical Laboratory, JAPAN. +;; Copyright (C) 1995, 1997 Electrotechnical Laboratory, JAPAN. ;; Licensed to the Free Software Foundation. ;; Keywords: multibyte character, character set, syntax, category @@ -179,13 +179,57 @@ (modify-category-entry (make-char 'cyrillic-iso8859-5) ?y) -(let ((c 160)) - (while (< c 256) - (modify-syntax-entry (make-char 'cyrillic-iso8859-5 c) "w") - (setq c (1+ c)))) +(modify-syntax-entry (make-char 'cyrillic-iso8859-5 160) " ") (modify-syntax-entry ?,L-(B ".") (modify-syntax-entry ?,Lp(B ".") (modify-syntax-entry ?,L}(B ".") +(let ((tbl (standard-case-table))) + (set-case-syntax-pair ?,L!(B ?,Lq(B tbl) + (set-case-syntax-pair ?,L"(B ?,Lr(B tbl) + (set-case-syntax-pair ?,L#(B ?,Ls(B tbl) + (set-case-syntax-pair ?,L$(B ?,Lt(B tbl) + (set-case-syntax-pair ?,L%(B ?,Lu(B tbl) + (set-case-syntax-pair ?,L&(B ?,Lv(B tbl) + (set-case-syntax-pair ?,L'(B ?,Lw(B tbl) + (set-case-syntax-pair ?,L((B ?,Lx(B tbl) + (set-case-syntax-pair ?,L)(B ?,Ly(B tbl) + (set-case-syntax-pair ?,L*(B ?,Lz(B tbl) + (set-case-syntax-pair ?,L+(B ?,L{(B tbl) + (set-case-syntax-pair ?,L,(B ?,L|(B tbl) + (set-case-syntax-pair ?,L.(B ?,L~(B tbl) + (set-case-syntax-pair ?,L/(B ?,L(B tbl) + (set-case-syntax-pair ?,L0(B ?,LP(B tbl) + (set-case-syntax-pair ?,L1(B ?,LQ(B tbl) + (set-case-syntax-pair ?,L2(B ?,LR(B tbl) + (set-case-syntax-pair ?,L3(B ?,LS(B tbl) + (set-case-syntax-pair ?,L4(B ?,LT(B tbl) + (set-case-syntax-pair ?,L5(B ?,LU(B tbl) + (set-case-syntax-pair ?,L6(B ?,LV(B tbl) + (set-case-syntax-pair ?,L7(B ?,LW(B tbl) + (set-case-syntax-pair ?,L8(B ?,LX(B tbl) + (set-case-syntax-pair ?,L9(B ?,LY(B tbl) + (set-case-syntax-pair ?,L:(B ?,LZ(B tbl) + (set-case-syntax-pair ?,L;(B ?,L[(B tbl) + (set-case-syntax-pair ?,L<(B ?,L\(B tbl) + (set-case-syntax-pair ?,L=(B ?,L](B tbl) + (set-case-syntax-pair ?,L>(B ?,L^(B tbl) + (set-case-syntax-pair ?,L?(B ?,L_(B tbl) + (set-case-syntax-pair ?,L@(B ?,L`(B tbl) + (set-case-syntax-pair ?,LA(B ?,La(B tbl) + (set-case-syntax-pair ?,LB(B ?,Lb(B tbl) + (set-case-syntax-pair ?,LC(B ?,Lc(B tbl) + (set-case-syntax-pair ?,LD(B ?,Ld(B tbl) + (set-case-syntax-pair ?,LE(B ?,Le(B tbl) + (set-case-syntax-pair ?,LF(B ?,Lf(B tbl) + (set-case-syntax-pair ?,LG(B ?,Lg(B tbl) + (set-case-syntax-pair ?,LH(B ?,Lh(B tbl) + (set-case-syntax-pair ?,LI(B ?,Li(B tbl) + (set-case-syntax-pair ?,LJ(B ?,Lj(B tbl) + (set-case-syntax-pair ?,LK(B ?,Lk(B tbl) + (set-case-syntax-pair ?,LL(B ?,Ll(B tbl) + (set-case-syntax-pair ?,LM(B ?,Lm(B tbl) + (set-case-syntax-pair ?,LN(B ?,Ln(B tbl) + (set-case-syntax-pair ?,LO(B ?,Lo(B tbl)) ;; Devanagari character set |