(standard-case-table): Add entries

for Greek.

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