Set case-table for Cyrillic characters.

diff --git a/lisp/international/characters.el b/lisp/international/characters.el
index 65f2a8963e8deb0a72854a3e061af784566104bc..2527542e38266be09aaee30159e1386c63ae7a09 100644 (file)
--- 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 ?\e,L-\e(B ".")
 (modify-syntax-entry ?\e,Lp\e(B ".")
 (modify-syntax-entry ?\e,L}\e(B ".")
+(let ((tbl (standard-case-table)))
+  (set-case-syntax-pair ?\e,L!\e(B ?\e,Lq\e(B tbl)
+  (set-case-syntax-pair ?\e,L"\e(B ?\e,Lr\e(B tbl)
+  (set-case-syntax-pair ?\e,L#\e(B ?\e,Ls\e(B tbl)
+  (set-case-syntax-pair ?\e,L$\e(B ?\e,Lt\e(B tbl)
+  (set-case-syntax-pair ?\e,L%\e(B ?\e,Lu\e(B tbl)
+  (set-case-syntax-pair ?\e,L&\e(B ?\e,Lv\e(B tbl)
+  (set-case-syntax-pair ?\e,L'\e(B ?\e,Lw\e(B tbl)
+  (set-case-syntax-pair ?\e,L(\e(B ?\e,Lx\e(B tbl)
+  (set-case-syntax-pair ?\e,L)\e(B ?\e,Ly\e(B tbl)
+  (set-case-syntax-pair ?\e,L*\e(B ?\e,Lz\e(B tbl)
+  (set-case-syntax-pair ?\e,L+\e(B ?\e,L{\e(B tbl)
+  (set-case-syntax-pair ?\e,L,\e(B ?\e,L|\e(B tbl)
+  (set-case-syntax-pair ?\e,L.\e(B ?\e,L~\e(B tbl)
+  (set-case-syntax-pair ?\e,L/\e(B ?\e,L\7f\e(B tbl)
+  (set-case-syntax-pair ?\e,L0\e(B ?\e,LP\e(B tbl)
+  (set-case-syntax-pair ?\e,L1\e(B ?\e,LQ\e(B tbl)
+  (set-case-syntax-pair ?\e,L2\e(B ?\e,LR\e(B tbl)
+  (set-case-syntax-pair ?\e,L3\e(B ?\e,LS\e(B tbl)
+  (set-case-syntax-pair ?\e,L4\e(B ?\e,LT\e(B tbl)
+  (set-case-syntax-pair ?\e,L5\e(B ?\e,LU\e(B tbl)
+  (set-case-syntax-pair ?\e,L6\e(B ?\e,LV\e(B tbl)
+  (set-case-syntax-pair ?\e,L7\e(B ?\e,LW\e(B tbl)
+  (set-case-syntax-pair ?\e,L8\e(B ?\e,LX\e(B tbl)
+  (set-case-syntax-pair ?\e,L9\e(B ?\e,LY\e(B tbl)
+  (set-case-syntax-pair ?\e,L:\e(B ?\e,LZ\e(B tbl)
+  (set-case-syntax-pair ?\e,L;\e(B ?\e,L[\e(B tbl)
+  (set-case-syntax-pair ?\e,L<\e(B ?\e,L\\e(B tbl)
+  (set-case-syntax-pair ?\e,L=\e(B ?\e,L]\e(B tbl)
+  (set-case-syntax-pair ?\e,L>\e(B ?\e,L^\e(B tbl)
+  (set-case-syntax-pair ?\e,L?\e(B ?\e,L_\e(B tbl)
+  (set-case-syntax-pair ?\e,L@\e(B ?\e,L`\e(B tbl)
+  (set-case-syntax-pair ?\e,LA\e(B ?\e,La\e(B tbl)
+  (set-case-syntax-pair ?\e,LB\e(B ?\e,Lb\e(B tbl)
+  (set-case-syntax-pair ?\e,LC\e(B ?\e,Lc\e(B tbl)
+  (set-case-syntax-pair ?\e,LD\e(B ?\e,Ld\e(B tbl)
+  (set-case-syntax-pair ?\e,LE\e(B ?\e,Le\e(B tbl)
+  (set-case-syntax-pair ?\e,LF\e(B ?\e,Lf\e(B tbl)
+  (set-case-syntax-pair ?\e,LG\e(B ?\e,Lg\e(B tbl)
+  (set-case-syntax-pair ?\e,LH\e(B ?\e,Lh\e(B tbl)
+  (set-case-syntax-pair ?\e,LI\e(B ?\e,Li\e(B tbl)
+  (set-case-syntax-pair ?\e,LJ\e(B ?\e,Lj\e(B tbl)
+  (set-case-syntax-pair ?\e,LK\e(B ?\e,Lk\e(B tbl)
+  (set-case-syntax-pair ?\e,LL\e(B ?\e,Ll\e(B tbl)
+  (set-case-syntax-pair ?\e,LM\e(B ?\e,Lm\e(B tbl)
+  (set-case-syntax-pair ?\e,LN\e(B ?\e,Ln\e(B tbl)
+  (set-case-syntax-pair ?\e,LO\e(B ?\e,Lo\e(B tbl))
 
 ;; Devanagari character set