From: Dave Love <fx@gnu.org>
Date: Sun, 17 Sep 2000 16:58:20 +0000 (+0000)
Subject: (standard-case-table): Add entries
X-Git-Tag: emacs-pretest-21.0.90~1566
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4b7c7a407c31dcee5cfc7e48bbb1e8710a9c7131;p=emacs.git

(standard-case-table): Add entries
for Greek.
---

diff --git a/lisp/international/characters.el b/lisp/international/characters.el
index 90c0bcc2927..7beece80363 100644
--- a/lisp/international/characters.el
+++ b/lisp/international/characters.el
@@ -304,6 +304,40 @@
 (modify-syntax-entry ?,F7(B ".")
 (modify-syntax-entry ?,F;(B ".")
 (modify-syntax-entry ?,F=(B ".")
+(let ((tbl (standard-case-table)))
+  (set-case-syntax-pair ?,FA(B ?,Fa(B tbl)
+  (set-case-syntax-pair ?,FB(B ?,Fb(B tbl)
+  (set-case-syntax-pair ?,FC(B ?,Fc(B tbl)
+  (set-case-syntax-pair ?,FD(B ?,Fd(B tbl)
+  (set-case-syntax-pair ?,FE(B ?,Fe(B tbl)
+  (set-case-syntax-pair ?,FF(B ?,Ff(B tbl)
+  (set-case-syntax-pair ?,FG(B ?,Fg(B tbl)
+  (set-case-syntax-pair ?,FH(B ?,Fh(B tbl)
+  (set-case-syntax-pair ?,FI(B ?,Fi(B tbl)
+  (set-case-syntax-pair ?,FJ(B ?,Fj(B tbl)
+  (set-case-syntax-pair ?,FK(B ?,Fk(B tbl)
+  (set-case-syntax-pair ?,FL(B ?,Fl(B tbl)
+  (set-case-syntax-pair ?,FM(B ?,Fm(B tbl)
+  (set-case-syntax-pair ?,FN(B ?,Fn(B tbl)
+  (set-case-syntax-pair ?,FO(B ?,Fo(B tbl)
+  (set-case-syntax-pair ?,FP(B ?,Fp(B tbl)
+  (set-case-syntax-pair ?,FQ(B ?,Fq(B tbl)
+  (set-case-syntax-pair ?,FS(B ?,Fs(B tbl)
+  (set-case-syntax-pair ?,FT(B ?,Ft(B tbl)
+  (set-case-syntax-pair ?,FU(B ?,Fu(B tbl)
+  (set-case-syntax-pair ?,FV(B ?,Fv(B tbl)
+  (set-case-syntax-pair ?,FW(B ?,Fw(B tbl)
+  (set-case-syntax-pair ?,FX(B ?,Fx(B tbl)
+  (set-case-syntax-pair ?,FY(B ?,Fy(B tbl)
+  (set-case-syntax-pair ?,FZ(B ?,Fz(B tbl)
+  (set-case-syntax-pair ?,F[(B ?,F{(B tbl)
+  (set-case-syntax-pair ?,F?(B ?,F~(B tbl)
+  (set-case-syntax-pair ?,F>(B ?,F}(B tbl)
+  (set-case-syntax-pair ?,F<(B ?,F|(B tbl)
+  (set-case-syntax-pair ?,F6(B ?,F\(B tbl)
+  (set-case-syntax-pair ?,F8(B ?,F](B tbl)
+  (set-case-syntax-pair ?,F9(B ?,F^(B tbl)
+  (set-case-syntax-pair ?,F:(B ?,F_(B tbl))
 
 ;; Hebrew character set (ISO-8859-8)