# HG changeset patch
# User Chong Yidong <cyd@stupidchicken.com>
# Date 1175700899 0
# Node ID c4ac2750f7e45a660006ef2a528de01deb0d237f
# Parent  1b8e8619079e70e189053bdbc14a3da7b4d2390e
(ascii-case-table): New var.

diff -r 1b8e8619079e -r c4ac2750f7e4 lisp/international/mule.el
--- a/lisp/international/mule.el	Wed Apr 04 15:34:43 2007 +0000
+++ b/lisp/international/mule.el	Wed Apr 04 15:34:59 2007 +0000
@@ -392,6 +392,20 @@
 			char))))))))
 
 
+;; Save the ASCII case table in case we need it later.  Some locales
+;; (such as Turkish) modify the case behavior of ASCII characters,
+;; which can interfere with networking code that uses ASCII strings.
+
+(defvar ascii-case-table
+  ;; Code copied from copy-case-table to avoid requiring case-table.el
+  (let ((tbl (copy-sequence (standard-case-table)))
+	(up  (char-table-extra-slot (standard-case-table) 0)))
+    (if up (set-char-table-extra-slot tbl 0 (copy-sequence up)))
+    (set-char-table-extra-slot tbl 1 nil)
+    (set-char-table-extra-slot tbl 2 nil)
+    tbl)
+  "Case table for the ASCII character set.")
+
 ;; Coding system stuff
 
 ;; Coding system is a symbol that has the property `coding-system'.