+(defun copy-case-table (case-table)
+ (let ((copy (copy-sequence case-table)))
+ ;; Clear out the extra slots so that they will be
+ ;; recomputed from the main (downcase) table.
+ (set-char-table-extra-slot copy 0 nil)
+ (set-char-table-extra-slot copy 1 nil)
+ (set-char-table-extra-slot copy 2 nil)
+ copy))
+
+(defsubst set-case-syntax-1 (char)
+ "Offset CHAR by `set-case-syntax-offset' if CHAR is a non-ASCII 8-bit char."
+ (if (and (>= char 128) (< char 256))
+ (+ char set-case-syntax-offset)
+ char))
+