Commit bd72e34f authored by Chong Yidong's avatar Chong Yidong
Browse files

(ascii-case-table): New var.

parent 6a978be3
......@@ -392,6 +392,20 @@ code-point in CCS. Currently not supported and just ignored."
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'.
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment